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SCRABBLE * Découvrez les finesses 
du scrabble avec votre ordinateur qui 
remplace la table de jeu et compte les + 
points. 
STAR WALL * Un mur galactique 
avance inexorablement vers vous. | 
OTHELLO • Pions noirs et pions blancs , 
s'affrontent. | 
INVERSES * Blanchissez un carré de | 
| 


| 
| 
1199/4Д | 
| 
| 


trois cases sur trois еп choisissant parmi 
les huit combinaisons possibles. 
CRYPTO-DRAME * Un message 
codé apparaît sur votre écran. 


| | 


TOUS EN FORME + Créez une forme | | 
et obtenez immédiatement ses codes. | 
MOON PATROL + Rejoignez la base | | 
lunaire la plus proche en évitant les 1 
projectiles des vaisseaux ennemis et les | | 
cratères insondables. H 
PUISSANCE 4 • Alignez le premier | | 
Чез, quatre pions de votre couleur et 
ridiculisez votre adversaire. | | 
ADAM ET EVE » l'ignoble serpent qui * | 
а poussé Eve à manger la pomme est | * | 
aujourd'hui enfin puni. | 
MEMORY * Retrouvez dans un | 
tableau les différentes formes de | 
couleurs qui vont par paires mais | 
apparaissent au hasard. | | 
| | 
| 


1Х81 


POÈME + Donnez dans l'ordre : dix 
noms, dix verbes, dix compléments, et 
ce programme fabriquera 
automatiquement des phrases 
inoubliables ! 

SPLASH DOWN » Réalisez le saut 
de votre vie (ou de votre mort) en 
indiquant simplement à l'ordinateur la 
hauteur et la longueur de votre saut. 


si vous ne voulez pas mourir dans des 
délais trop brefs... 

TIR A L'ARC * Robin des Bois 
moderne, touchez dix fois de suite une 
cible qui se déplace de haut en bas sur 
la droite de votre écran. 

LEM * Menez à bien l'alunissoge de 
votre LEM. 


PIÈGE » Evitez les * et attrapez les $ + 
р‹ 


Боже Te 
| 
| 
| 
| 
| 
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| 
| 
| 
| 
| 
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ZX81 


MÉTÉORES + Poursuivez sans trève un 
météorite. 

VIADUC EN FOLIE + Arriverez-vous 
à faire traverser la rivière à toutes les 
jeunes filles qui se présentent ? 
BASKET » Redécouvrez les joies du 
basket... sur votre écran. 

ZX 600 • Aidez un sportif asthmatique 
à parcourir les 600 mètres fatidiques 
d'une course d'endurance. 

JET FORCE е Vous devez 
impérativement décoller de votre porte- 
avions. 


| 
| 
| 
| 


| 
| 
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TRON • Inspiré de la célèbre course 
de motos nucléaires du film Tron, ce jeu + 
ne vous laisse pas une seconde de répit. 
REBONDS EN FOLIE + Diigez une : 
super-balle vers sa cible grâce à des 
«barres de rebond ». H 
POPEYE « Aidez Popeye à rattraper | 
tous les objets qui tombent sur sa droite, | 
sur sa gauche ou... sur sa tête. | 
2001 е Découvrez l'espace 2001 е! | 
ses pièges mortels. 1 
MIDWAY * Votre ordinateur sera-t-il | 
le plus fort dans la bataille navale qui 

va vous opposer à lui. | 


| 


а ЯЛЛ | 


THOMSON М05 


X RAYS • Des lignes électrifiées en 
liberté ? C'est inconcevoble... | 
GUERRE NUCLÉAIRE * La Terre | 
sera-t-elle radio-active ou поп? Son sort | 
est entre vos mains. | 
ELECTROCHOC • Parviendrez-vous à ; 
suivre le rythme infernal d'un cable | 
| 
| 


haute tension ? 

STAR WARS * lo guerre a repris 

entre les forces du mal et votre planète. + 
LOVE SOURIS « Vous aimez les 
souris ? Tant mieux. Un pauvre petit 
animal s'est égaré dans un labyrinthe. 


Ше. 1-8 


COMMODORE 64 


MASTER MIND + l'ordinateur choisit 
cinq couleurs parmi huit qu'il garde 
secrètes et que vous devez retrouver. 
TILT-MAN » Trois tailles de labyrinthe 
pour un tilt-man qui doit s'échapper le 
plus vite possible. 

SERPENT-CRASH * Obligez le 
serpent du Commodore à entrer en 
collision avec le vótre ou avec un des 
obstacles qui parsèment le champ de 
jeu. 

POM POM POM POM... * Empêchez 
une chenille de grandir en tirant sur ses 
pommes préférées et sur ses nouveaux 
anneaux. 

SUPER-BABALLE ! е Dirigez une 
balle vers sa cible gráce à des 
déviations judicieusement choisies. 


COMMODORE 64 


FIRE • Sauvez les habitants d'un 
immeuble en flammes. 

ROBOTS • Des robots vous 
poursuivent dans une pièce aux murs 
électrifiés. Seule solution pour survivre, 
les pousser contre les murs. 

RACER + Quatre circuits, quatre 
challenges, et, entre vos mains, le volant 
d'un bolide aux performances 
époustouflantes. 

TANKS » Lancez votre char dans une 
course infernale. 

BOWLING • Réalisez les strikes et les 
spares de votre vie grâce à cette 
exceptionnelle simulation de bowling. 


| 
| 
| 
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MSX 


MISSILE * Un missile vous poursuit 
sans relâche. Evitez-le et sauvez la 
Terre. 
CASSE-BRIQUES * Vous pensiez 
matriser toutes les subtilités du casse- 
briques ? Essayez donc cette version où 
les raquettes classiques ont été 
remplacées par deux flips... 

KOINS » Des monstres vous traquent 
sans arrêt, Seule solution pour vous зоне! 
de ce piège, les écraser après les avoir | 
encerclés avec des blocs de glace. ! 
RAID + Votre avion vous attend, prêt à | 
décoller. Bouclez votre ceinture et. à + 
vous les sensations fortes ! 

DESTROY » Le sort de la base est 
entre vos mains. Si un missile parvient à 
franchir vos tirs de barrage, tout est 
perdu. 


MSX 


LE PETIT PEINTRE * Repeignez une 
pièce entière sans vous faire attraper 
par les monstres furieux de voir leur 
tranquillité troublée. 

PUZZLE + Reconstituez un puzzle 
composé de chiffres. L'ordinateur est 
tolérant: il vous laisse recommencer 
autant de fois que vous le désirez. 
SKRAMBLE + Aventurez-vous dans la 
grotte aux mille diamants... et revenez 
riche où топ! T 
COEUR BRISÉ * Fendrez-vous le cœur 
de votre ordinateur ? Déplacez une 
flèche avec habileté е! réussissez cet 
exploit peu commun. 

LETTRES А СОСО • Reconstituez le 
то! proposé par l'ordinateur à l'aide 
des lettres qui tombent du haut de votre 
écran. 
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SPECTRUM 


ROULETTE RUSSE + Préparez-vous à 
affronter la mort. Votre Spectrum adore 
jouer à la roulette russe, et lui, il a les 
nerfs solides. 

U-BOAT е Un sous-marin ennemi se 
cache au fond des eaux troubles du 
Pacifique. Lâchez vos mines sur lui avec 
le plus de précision possible. 


les gerbes d'étincelles. Touchez l'autre 
vous marquerez un point, 

SUITE INFERNALE * Une suite de 
nombre apparaît en haut à droite de 
votre écran. Reconstituez-la en 
ramassant dans votre petite barque les 
chiffres qui tombent du ciel. 

SPACE WALL е Protégez le mur 
magnétique qui défend votre cité contre 
les attaques ennemies. 


| 
| 
| 
| 
| 
| 
DUEL + Deux ovnis se poursuivent dans | 
| 
| 
| 
| 
| 
| 


SPECTRUM 


BLACK JACK SPÉCIAL • Approchez 
les 21 points sans jamais les dépasser. 
Rôle difficile que celui de 
Roméo. Surtout depuis qu'on a remplacé 
son échelle par une catapulte ! 
REBOND SURPRISE • Récupérez les 
balles qui tombent du haut de l'écran. 
NIMITZ * Les réserves de 

carburant de votre Mirage 2000 sont 
presque épuisées. Le porte-avion Nimitz 
est votre seul espoir de survie. 

GHOST PAINTER ! • Des fantômes 
se ruent sur vous dès que vous vous 
mettez à repeindre une pièce. 
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ОКІСІ /АТМ05 


LAS VEGAS ° Retrouvez le grand | 
frisson des salles de jeux е! empochez lo! 
monnaie grâce à votre fidèle ordinateur. | 
MÉMORY » Retrouvez dans un H 
tableau les différentes formes de | 
couleurs seulement visibles deux par : 
ne | 
MUSIQU'ORIC • Découvrez de Ч 
nouvelles possibilités sonores et | 
composez vos propres mélodies. 4 
CARAMBOLAGE * Au volant de | 
votre bolide, parcourez un labyrinthe | 

| 

| 


EC 
| 


sans jamais entrer en collision avec une 
autre voiture. 

ATTENTION FRAGILE + Grâce à 
votre panier, bloquez la balle qui 
rebondit de murs en murs avant qu'elle 
ne casse votre précieux verre à pied. 


(Ее: 231 


ORIC1/ATMOS 


GARE AUX BULLES + Promenez- 
vous dans l'écran le plus longtemps 
possible sans jamais vous foire heurter 
por une bulle. 

TÉLÉPHONES FOLIES + Décrochez 
le maximum de téléphones avant que le 
compteur n'arrive au chiffre fatidique de 
zérol 

CIDRE OU PINCE + Pour gagner, il 
vous faut remplir toutes les bouteilles de 
la chaine. Si vous en ratez une, il vous 
reste toujours la possibilité d'essayer de 
la récupérer avec la pince. 

SPACE INVADERS » Revoilà les 
fameux vaisseaux ennemis, toujours plus 
agressifs, toujours plus nombreux. 
PEINTURE PARTY * Repeignez votre 
appartement sans vous faire айгарег par 
de voraces petits fantômes. 


- 


| 
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ATARI600/800XL 


ALPHALUCK + Recomposez le carré 
magique des lettres en remettant ces 
dernières dans l'ordre alphabétique. 
MAGI-CARRÉS * Neuf cases à 
blanchir et un choix limité de 
déplacements. 

THE WALL * Retrouvez les joies du 
Casse-briques dans votre version 
particulièrement réussie. 

SKI * Vous dévalez des pentes 
enneigées en évitant tous les arbres. 
STAR DEFENCE » Cinq niveaux de 
difficulté pour une féroce bataille contre 
de nouveaux envahisseurs plus terrifiants 
que jamais... 


| 
| 
| 
| 
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eg 
АТАВ1600/ 800Х1 | 


RALLYE * Essayez de survivre le plus 
longtemps possible dans ce labyrinthe 
infernal. 

RÊVE DE CHENILLE » Mongez 
toutes les étoiles mais évitez les 
météorites si vous voulez devenir une 
super-chenille capable d'affronter 
solitudes glacées et immensités infinies... 
ALPHATACK * Toutes les lettres de 
votre abécédaire ont été prises de folie. 
JACK-POT PARTY • On vous refuse 
systémaliquement l'entrée des cosinos ? 
Défoulez-vous à domicile avec ce 
superbe Jack-pot. 

INVADERS • |15 tirent sans cesse sur 
Vous, se rapprochent imperturbablement 
pour peu que vous les laissiez faire et пе, 
souhaitent qu'une chose : votre mort. 


== 
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APPLE ПЕТ Пе 


NUCLEAR ° Principe simple mois 
réalisation ardue, Nuclear exige une 
concentration parfaite. 

TOP RÉFLEXES • Une lettre apparaît 
sur votre écran, pressez la touche 
correspondante sur votre clavier. 
FORMULE 1 е Visibilité limitée, 
virages brusques, l'étape de nuit est 
souvent la plus sélective. 

ORGUE MAGIQUE * Composez, 
enregistrez et jouez de l'orgue grâce à 
ce programme conçu par un spécialiste 
des effets sonores en micro-infarmatique. 
QUID « Concevez votre propre | 
questionnaire et soumettez vos amis à em 
test impitoyable. ! 


P Ее ені 


APPLE ПЕТ lle 


GROSSE ТЕТЕ • Reconstituez les 
paires à partir de formes qui 
аррагаїѕѕепі au hasard sur votre écran. 
421 • Formez à l'aide de trois dés la 
combinaison gagnante. 

ALPHABET EN FOLIE + Sauvez la 
République en déminant une tour que le 
président doit inaugurer. 

DÉMINEUR + Regroupez des lignes 
électrifiées en poussant des cloisons 
spécialement conçues. 

X RAYS * Remettre les lettres dans 
l'ordre alphabétique ? Pas si facile que 
ca, quand on est obligé d'inverser la 
case vide avec une lettre voisine. 


| 


a 


| 
AMSTRAD CPC 464; 
PRONOSPORT * Donnez la H 
combinaison gagnante de la prochaine | 
course е! repartez les poches pleines! | 
CHASS'LETTRES • Des lettres | 
tombent du haut de l'écran, attrapez-les | 
et reconstituez le mot proposé par 1 
l'ordinateur. | 
AMSTRAD MIND • Réplique du : 
célèbre jeu Master Mind, Amstrad Mind | 
va mettre votre mémoire à rude H 
épreuve. | 
MORPION • Alignez спа pions sur 1 
une ligne verticale, diagonale ou | 
horizontale et écrasez l'ordinateur par + 
votre supériorité stratégique. | 
CATA-TIR • Détruisez sans remords les | 
dépôts de vivres de l'ennemi. Vous | 
pourrez ainsi vous rendre maître de | 
toutes ses places fortes. | 


Ee 


AMSTRAD CPC 464 


MOTS CACHÉS ° Trouvez les lettres 
qui composent le mot caché dans la 
mémoire de l'ordinateur. 

DRÔLES DE CARACTÈRES • Créez 
les graphismes de vos futurs jeux. 

LES ASCII ATTAQUENT * Des 
vagues de caractère ASCII déferlent sur 
vous. Détruisez-les et... apprenez à les 
reconnaître. 

CASSE BOUTEILLE » Des bouteilles 
avancent lentement sur un tapis roulant à 
trois niveaux. Rattrapez-les au fur et à 
mesure de leur arrivée. 

UN PONT, СА VA, TROIS 
PONTS... * Aidez des jeunes filles à 
traverser une rivière en plaçant sous 
leurs pas les éléments d’un pont 
transportable. 


| 


| 
| 
| 
| 
| 
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DATA x, y, 
DATA x, у, 


ÉQUIVALENCES DES INSTRUCTIONS BASIC 


ÉQUIVALENCES DES INSTRUCTIONS BASIC 


INKEYS 


M d 


ШИ 
ШИШ WE 
ШИШ 
її 


RIGHTS (x$,y) 


E 


S Ea бе a азір 


WAIT x, 
PAUSE x 
PAUSE x 


| 
E 


VAL (х5) 
VAL (x$) 
VAL (x$) 
VAL (055) 
VAL (x$) 


VAL (x$) 
VAL (55) 


VAL (x$) 


Découvrez les finesses du scrabble 
avec votre ordinateur 
qui remplace la table de jeu et compte les points. 
Pour jouer, entrez tout d'abord 
le nombre de lettres de votre mot; indiquez ensuite 
sa position, repérée par la première lettre, 
et donnez enfin le sens d'écriture. 


19 REM СЕ PROGRAMME VOUS PERMET DE JOUER RU SCRABBLE, IL REMPLACE LR TRELE DE JE 
U ET COMPTE LES POINTS 

20 REM VOUS DEVEZ D'ABORD ENTRER LE NOMBRE DE LETTRES DU MOT TEL QU'IL RPPRRRIT 
RH SUR LA GRILLE 

за REM ENTREZ ENSUITE VOTRE MOT PAR L'INTERMEDIRIRE DU CLAVIER 

45 REM PUIS SR POSITION БЕРЕКЕ PAR LA PREMIERE LETTRE ET ENFIN LE SENS D'ECRITU 
Е 

50 REM VERIFIEZ VOS REPONSESSI VOUS AVEZ COMMIS UNE ERREUR TAPEZ 'N' A LA DERNI 
ЕКЕ QUESTION 

60 REM POUR PASSER RU JOUEURSUIVRNT APPUYEZ SUR UNE TOU-CHE 

78 DATA 1,3,3,2,1,4,2,4,1,8,10,1,2,1,1,3,8,1,1,1,1,4,10, 18, 19,1й,8 

за DATA 10,4,98,10,3,96,10,2,97,11,2,96,12,2,99,12,3,96,12,4,98, 13,4,96,14,4, 100 
,14,3,96,14,2,99 

98 DATA 10,8,98,10,7,96,10,6,97,11,6,96,12,6,96,13,6,96, 14,6,99,14,7,96,14,8,108 
109 DATA 10,10,97,11,10,96,12,10,96,13,10,96,14,10,99,10,11,96,18,12,98, 11,12,96 
118 DATA 12,12,100,12,11,96,13,11,99,13,12,98,14,12,99 

152 бата 14 14,99,13,14,96,12,14,96,11,14,96,10,14,97,10,15,96, 10,16,98,11,16,96 
‚12,15, 

138 DATA 12,16,96,13,16,96,14.16,100,10,18,97,11, 18,96,12,18,96,13,18,96,14,18,9 


9 
149 DATA 10,19,96,10,20,98,11,20,96, 12,19, 96, 12, 20, 102, 13, 20, 96, 14, 20, 100; 14: 19, 


159 DATA 10,22,97,11,22,96,12,22,96,13,22,96,14,22,99, 10,23, 96, 10, 24,98,11,24,96 
169 DATA 12,23,96,12,24,182,13,24,96,14,24, 100, 14, 23, 96 

178 DATA 10,26,97,11,26,96,12,26,96,13,26,96,14,26,99,14, 27,96,14,28,108 
180 DATA 19,32,98, 10,31,96, 10,30,97, 11,30,96, 12, 30, 96, 12, 31, 96, 13, 38, 96 
198 DATA 14,38,99,14,31,96,14,32, 100, 1, 1, 104 

208 CRLL CLERR 

219 CALL 5СКЕЕМС 16) 

228 RRNDOMIZE 

238 DIM RC272, SCCAD, CC 4) 

249 RESTORE 

258 FOR Ізі TO 27 

268 RERD F 

278 НСІо-Ғ 

288 МЕХТ І 

298 CALL CHpk 46, "09999091818" > 

eoe 1240 


Iss"SI VOUS VOULEZ LES REGLES :" 
созив 1828 

021 

M$="TAPEZ ЕСТН 4 .PUIS LIST 18-60" 
созив 1524 


IF (N<12+CN243THEN 388 
CALL HCHAR 24, 1,32,32) 
FOR Ізі ТОН 

FRINT "NOM DU JOUEUR Ho";I 
INPUT СЕСТО 

МЕХТ 1 

GOSUE 1450 

IF H>1 THEN 470 

051 

CALL нснакс18,1,з2, 2205 
за 

Бай 

Dic Q ус"! 

EL 

LI 


М 

Мізі 

Е=3 

0=18 

Mie CO» 
GOSUE 1820 
prod 


3 
ss" ONERE DE LETTRES DU MOT :" 
созив 1828 
GOSUE 1860 
CALL HCHRR(2B,38,K» 
L-K-48 
р=21 
E=: 


мвж МОТ 1" 

GOSUE 1820 

FOR Ізі TO L 

GOSUE 1860 

CALL HCHARE21,8+1,K2 
DECODE 0 JE CHREC K 2 
MEAT I 

D=22 

E=3 

M$="POSITION CHor. Mert, > :" 
созив 1820 

GOSUB 1868 

а CALL HCHRR¿022,27,K) 
НЕК 

CALL HCHAR( 22,28, 443 
GOSUB 1868 

CALL HCHRR(22,29,K) 
V=K 


р=23 


Е=3 

MS="SENS CH ou V2 +" 
GOSUE 1928 

а созив 1368 


ККЕК 
CALL нснакс23,19,К> 
024 


M$="PAS D'ERREUR ?" 
GOSIG 1820 

созив 1868 

ЇЕ Қ<278 THEN 489 
1994 IF KK=72 THEN 1858 
1914 5-1 

1924 бозив 1890 

1аза созив 1868 

1040 GOTO 1080 

1958 К=1 

1060 GOSUB 1998 

тата GOSUB 1569 

1030 Dër Die" 

1888 IF K=12 THEN 1148 
1108 050+1 

1118 IF 0<=М THEN 488 


INPUT "NOMBRE DE JOUEURS (2-4) ?":N 


0-1 

сото 488 

CALL HCHAR<13,1,32,1643 
FOR ki ТОН 

Оя2й+.1 


M&-"SCORE DE "RS Ј2к" 
GOSUB 1820 

NEXT J 

FOR I=1 TO 500 

NEXT I 

сото 480 

FOR 1596 ТО 128 STEP 8 

CALL СНВЕСТ, "ЕРЕРЕЕЕЕЕЕЕЕЕЕЕЕ" > 
NEXT 1 

CALL CHARC 97, "183078ЕДЕЗЕТЕЕР" > 
CALL СННЕС ЭВ, "BBCBEBFBFSFCFEFF " > 
CALL СННЕС 99, "FF7F3F1F0F0703091" > 
CALL CHARÇ 100; "ЕЕЕЕЕСЕВЕФЕОСОВЯ" > 
CALL СННЕС 102, "РЕРЕРСРВРВЕСЕЕЕР" > 
CALL COLORC9,3,1) 

FOR 141 TO 89 

READ A1. A2, АЗ 

CALL HCHARÇA1 ; AZ-AZ) 

CALL SOUNDCA1#12, нажа, 2,НЗЖ4, 2) 
NEXT I 

D=24 

E=18 

M&-"DV^"VIDEO @1984" 

GOSUB 1829 

FÜR 1=1 TO 1508 

NEXT I 

RETURN 

FÜR 1-1 TO 16 

CALL CLEAR 

CALL COLORCI, 1,15 

NEXT 

PRINT ТНВС 102; CHRSC G5); 

FÜR 1-66 ТО 79 

PRINT CHRSCIO; 

NEXT I 

PRINT 

PRINT 

PRINT TRBEC183;" X хоо 
PRINT TABIO" h р P h" 
PRINT ТЯВ<10)3" h xx h " 
PRINT Top Lëns h х h x" 
PRINT TAEC 193" 
PRINT TAEC 10 ); 
PRINT Top 18); 
PRINT TAEC 18); 
PRINT TAEC 10); › 
PRINT TRB(10»;" P^ P ^P р" 
PRINT TRBC18D;" h Birnen 
PRINT TREC1BD;"x h x h x" 
PRINT TABIO" h xx h " 
PRINT ТӨВС103:" h P P h" 
PRINT TRBC1AO;" S x ` an 
PRINT ::::4: 

FOR 153 TO 17 

CALL VCHARC 1: 10, 1+62) 

NEXT I 

CALL COLORCS, 7,12 

CALL COLORCIE, 18,15 

CALL COLORCII,5,12 

CALL COLORE 12,612 

FOR I-2 то 8 

CALL COLORCI,2,12 

NEXT 1 

RETURN 

FOR 1-і TO LENS? 

CALL HCHRRCD,E*1;RSCCSEGSCHS, 1,122) 
NEXT I 

RETURH 

CALL КЕУСО,К,ЕТ? 

IF ET-8 THEN 1868 

RETURN 

FÜR 1=1 TO L 

LM=1 5 


"&STREC SCC 123 


К=А5С‹ ВЕСЕ ОВК Пэн 1,105 
GOSUB 2188 
М1=М1ЖММ 
ММ-1 
CALL HCHRRCH-62, V-S3,K 5 
МЕЧА 
=Н+5 
НЕХТ 1 
5М2=5М1ЖМ1 
SCC Diet D AS 


M$="SCORE DE "&C0$602&":"&STRSCSCCO»» 
GOSUB 1820 
FOR I-1 TO 1000 


CALL GCHRRKH-62, V-53. TE? 
GOTO 2158 

IF <ТЕ=32 )4( TE?95 THEN 2158 
SC1=ACK-64 ) 

бото 2600 

IF ТЕ<>12@ THEN 2189 
LM=2 

GOTO 2260 

IF ТЕ< 2112 THEN 2210 
LM: 

GOTO 2260 

IF ТЕ< 2184 THEN 2249 
Mis? 

сото 2264 

ТЕ ТЕ<296 THEN 2260 
ММ=З 

SC1=AC К-64 >£LM 

IF 5-1 THEN 2638 

IF 1521 THEN 2378 
Hip 

ууя-1 

нива 

уце-1 

Es] 

GOSUB 2980 

51115511 

GOTO 2460 

IF I<>L THEN 2468 
HH=B 


bi 

Hia 

Уще 1 

Sp 

GOSUE 2980 

5М1-5М1%5М 
а GOTO 2600 

HH=-1 


COMMENTAIRES : 


Ligne 10 à 60 : explication du jeu 
Ligne 70 à 190 : datas de la grille 
Ligne 200 à 320 : initialisation des 
variables 

Ligne 330 à 370 : voulez-vous les règles 
du jeu ? 

Ligne 380 à 440 : choix du nombre de 
joueurs, puis entrée des prénoms 
Ligne 450 à 1230 : programme principal 
avec entrée du mot 

Ligne 1240 à 1310 : redéfinition des 
caractères 


28 


созив 2988 
HH=1 


THEN 2600 


CC Dt SM+SC1 ЭЖММ 


SM1=SM1+SC1 
5С1=й 

RETURN 

IF 1<21 THEN 2720 


а HH=-1 


змей 
GOSUB 2980 
SM1=SH 
GOTO 2810 


созив 2984 
SM1=SM1+SH 
сото 2958 
HH=G 


Ev 
созив 2980 
НН-й 


H 

GüSUB 2980 

IF 5М-0 THEN 2950 
SCCOD-SCCO*CSMSCI ЭЖММ 
5М-й 


SC1= 

RETURN 

H1-H-62*HH 
У15ү-534УУ 

CALL GCHRRCH1,V1, TE» 
IF ТЕ< 246 THEN 3858 
уузуу+уи 

ННЕНН+НИ: 

сото 2950 


IF <ТЕ<652%С ТЕ>90 THEN. 3100 


SM=SM+ACTE-64 > 


GOTO 2980 
RETURN 


Ligne 1320 à 1440 : 
d'affichage du mot 
Ligne 1450 à 1810 : 
dessin de la grille 
Ligne 1820 à 1850 : 
d'affichage 

Ligne 1840 à 1880 
Ligne 1890 à 2090 
Ligne 2100 à 2250 
touches du curseur 
Ligne 2260 à 2620 : 
jeu 

Ligne 2630 à 3100 : 
calcul du score. 


sous programme 
sous programme de 
sous programme 
test du clavier 
affichage du score 
reconnaissance des 


sous programme de 


sous programme de 


TI 99/4A 


STAR WALL - 


Un mur 


galactique avance inexorablement vers vous. 


Détruisez-le avant de vous faire écraser. 
Les curseurs servent à vous diriger et la barre d'espace 
à tirer... 


18 CALL CLEAR 

20 CALL SCREENS) 

за CALL CHRñR¿128,"F8403C7F7F3C40F8") 

dp CALL CHARS 129, "д ФФОҒЕЕРООФЯИЯ" > 

58 CALL CHARK 136, "ЕРРЕСЗОВОВСЗЕЕЕР" > 

60 CALL COLORCIS,8,5) 

та CALL COLOR(14, 11,2) 

titi "MOUVEMENTS : WE En CURSEUR 

80 РКТН STAR WALL" 
GE POUR TIRER": 

89 PI 

эй GH "DIFFICULTE (1-5) ":р 

91 5С-й 

95 IF 055 THEN 98 


IF 0<1 THEH 98 
97 D=INT(D-1 242+5 
#=20 


CALL CLEAR 
HT=INTE RHDX15+5 > 
CALL CLEAR 
PRINT "SCORE = 
FOR P=32 TO D+1 STEP c 
CALL VCHRHRC23-HT,P, 136, HT» 
CALL HCHRRCX,D, 128) 

DX=0 

CALL KEYCA,C,TÓ 
IF С<269 THEN 200 
DK=CK>12) 

GOTO 400 

IF C<>88 THEN 250 
DX2-(X€222 


GOTO 400 

ЇЕ (5232 THEN 400 

GOSUE зав 

GOTO 400 

CALL SOUNDI 59, -5, 20) 
FOR I=D+1 TO P STEP 2 
CALL НСНЯКСХ, 1-2,32> 
CALL HCHAR X, 1,129) 
NEXT I 

CALL HCHRRCX, I-2, 322 

IF X<23-HT THEN 388 
HT=HT-1 

IF HT>Ø THEN 375 

HT=1 

CALL SOUNDX 100, -7, 10) 
SC=SC+INTCHTEC33-P 2/18 же D+1 > 
RETURN 

CALL HCHRRCXK,D, 32) 

CALL УСННК<22-НТ,Р,32,НТ%1) 
Хахарх 

МЕХТ Р 

IF Х<23-НТ THEN 100 
CRLL CLERR 

FOR 150 То 38 

CALL SOUND(C48,-6, I) 
CALL ЗСКЕЕНС INTC 1/2+122 
NEXT I 

CALL ЗСКЕЕНС5 > 


PRINT "SCORE FIMRL : ";SC 

PRINT :::"UNE AUTRE PARTIE СО0/М2 "J 
A$= ЕН 98 

IF A$<>"N" THEN 470 


COMMENTAIRES : 


Ligne 5 à 20: 
variables 
Ligne 30 à 50 : redéfinition des 
caractères graphiques 

Ligne 60 à 99 : présentation du jeu 
Ligne 100 à 135 : routine principale 
première partie 

Ligne 140 : test du clavier 


initialisation des 


Ligne 150 à 170 : changement de 
direction à gauche 

Ligne 200 à 220 : changement de 
direction à droite 

Ligne 250 à 280 : détection du tir 
Ligne 300 à 380 : sous programme de 


gestion du tir 
Ligne 400 à 440 : 
seconde partie 
Ligne 444 à 500 : 


routine principale 


fin de partie 
29 


» 


TI 99/44 


OTHELLO ` 


Pions noirs et pions blancs s'affrontent; 
Placez l'un des vôtres 
à chaque extrémité d'une droite ou d'une diagonale 
et annexez purement et simplement 
les pions qui se trouvent ainsi encerclés. 
Pour placer un pion, entrez ses coordonnées, 
l'ordinateur se charge du reste. 


CALL CLEAR 

CALL SCREEN( 14) 
FOR Ізі TO 8 

CALL. COLORCI, 12,147 
NEXT I 

GOSUB 1910 

CALL CLEAR 
хушин 


GOSUB 1820 

FOR 1=112 TO 115 

CALL CHRRCI,"" » 

NEXT I 

НВ=1 

TRRIT=-1 

CALL COLORC10,2,4) 

CALL COLORC11,2,4) 

CALL COLORC12,16,4) 

CALL CHAR 96, "BoagaaaaaaaBOOFF " > 
FOR 1=104 TO 120 STEP 16 

CALL СНЯЕСІ, "д ФФФҒІЕЗЕЗЕЗЕЗЕ" > 
CALL CHARS 1+1, "ЗЕЗЕЦЕВЕВВВВЕЕЕР" 2 
CALL СНЯЕС 1+2, "ӨЗӨЗСЗЕЗЕЗЕЗЕЗЕЗ" > 
CALL CHE: 1+3, "РЗЕЗЕЗСЗВЗВЗЕЕЕЕР" > 
NEXT I 

CALL CHRRCII2,"") 

CALL CHARK 113, "дйййдВВЯВЯВВЕЕЕЕ" > 
CALL CHARS 114, "0302030303030303" > 
CALL CHARK 115, "дзазазазазазевве" 2 


а DIM MATES, 82, INCL S); MAXLCS >, INCCCB), МАХССВО, 
JC 32, NBPIONC32, VLC8, 8), PSCS) 
à RESTORE 1900 


FOR 1=1 TO 8 

READ INCL& I2, MAXLE I 3, ІМСССІ >, MANCCI > 
MEXT 1 

J#C12="NOIR " 

4863» LANC" 

НВРТОНС 1 
МВРТОНСЗ 
MATE 4, 4 
MATC4,52=1 
MRTCS, 4271 
МНТС5,528-1 
CALL CLEAR 
FOR L=1 TO 8 
FOR C=1 TO 8 
GOSUE 1730 


2345678" 


710 GOSUE 1820 


L. 229 FOR 1- 


720 FOR 1=1 TO 8 


EDL-2*2XI 

ЕрС-7 

BARS=CHREC 64+] > 

GOSUB 1820 

NEXT I 

BAR$="LIGNE : N" 
2 


"COLONNE : в" 


00508 1820 
BBR$-.I$C TRAIT+2) 
EDL-22 
EDC-6 
созив 1820 

IF ТЕНІТ-РКЕМ THEN 2900 
CALL GCHARÇ22,22, VAR) 
CALL НСНЯЕС22,22,96) 
CALL HCHRR( 22, 22, VAR) 
CALL КЕУСЯ,КЕУ, ST) 

IF 51-08 THEN 950 

IF KEY=13 THEN 1150 

IF KEY<65 THEN 950 

ТЕ KEY>72 THEN 950 
JL-KEY-64 

CALL HCHRR(22,22,KEY) 
CALL GCHARC 24, 22, VAR) 
CALL НСНЯЕС 24, 22, 96 ) 
CALL HCHRRC24, 22, VAR) 
CALL КЕҮС0,КЕҮ,5Т? 

IF Step THEN 1040 

IF KEY=13 THEN 1150 
IF КЕҮ<48 THEN 1040 
ТЕ КЕҮ56 THEN 1049 
JC=KEY-48 

CALL HCHAR(24,22,KEY) 
GOTO 948 

REM 


1169 FEM 
1178 КЕМ 


Dsg 
IF JC<>@ THEN 1220 


1200 PASS=PASS+1 


IF МЯТС.Л.. 02450 THEN 529 
L-JL 

сЕ 

MRTCL, сжжткатт 


1260 GOSUB 1730 
1270 FOR D-1 TO 8 


IF РН55-2 THEN 3330 ELSE 1640 


i388 L=L+INCLÉ D 2 

1318 IF LEMAXLCDÈTHEN 1599 

1328 С=! 41155352 

1330 IF СЯМАХССООТНЕН 1500 

1340 IF MRTCL,C»-8 THEN 150 

1358 IF МАТ, СЖ 2TRAIT THEN 1399 
1368 «сас 

1370 WL-L 

1380 L=JL 

1398 C=JC 

1499 L=L+IHCL(D) 

1419 C=C+INCC(D) 

1420 IF Lat THEN 1440 

1430 IF C-NC THEN 1508 

1440 MRTCL,C2-MRTCL,) CRC —1 à 

1458 НВРТОНСТКАТТ+2 ЕНВРТОНС TRAIT+2 2+1 
1468 НВРТОНС( ТЕНІТЖ-12%22-МВРІОМССТЕНІТЖ-12%22-1 
1470 GOSUE 1730 

1488 OK=1 

1498 GOTO 1498 

1500 НЕХТ D 

1510 IF OK=1 THEN 1579 

1529 LzJL 

1530. CJ 

1548 МАТ, сова 

1559 GOSUB 1730 

1569 GOTO 890 

1570 REM 

1580. REM 

1590 REM 

1600 NE=NB+1 

1618 PRSS-! 

1620 GOSUB 3200 

1630 НВРТОНС ТЕАТТ+2 )=НВРІОМ‹ ТЕАІТ+2 2+1 
1640 ТЕНЇТ-ТЕНЇТЖС-12 

1650 FÜR 151 TO 3 STEP 2 

1668 EDL-21*I 

1678 EDC-38 

1680 BRRS-STRSCHBPIONCIOO&" " 

1698 GOSUE 1820 

1700 NEXT I 

1710 IF NB<61. THEN 890 

1720 GOTO 3330 

1739 FOR LL=1 TO 2 

1740 FOR CC=1 TO 2 

1750 CALL HCHRR(2*L*LL.,2XC*CC*6, 109+LL+2*CC+S*MRTC 
15022 

1768 NEXT СС 

1770 NEXT LL 

1780 RETURN 

1820 КЕМ 

1830 FOR CC-EDC ТО EDC+LEN(EARS )-1 
1840 CALL HCHARCEDL, CC, ASC. SEGS BARS, CC-EDC+1 , 122) 
1859 НЕХТ СС 

1860 BAR$="" 

1870 RETURN 

1900 RUA EE 9,-1,0,1,9,-1,0,0,9,-1,0,-1,0,0,9, 


1,0,1 1,0,1,9, 0,9,1,9, 1,9 
1918 BARS BONJOUR? 

1920 EDL=1 

1938 EDC=12 

1940 GOSUB 1329 

1959 BAR#="JE M'RPPELLE ТЇ-ЭЭН" 


1360 EDL: 
1978 EDC=3 
1980 GOSUB 1820 
1990 BAR#="JE VOUS PROPOSE DE JOUER A" 
2000 EDL-G 
2010 EDC=3 
2020 GÜSUB 1820 
газа BAR$=" OTHELLO” " 
2040 EDL=19 
2050 EDC-12 
2060 GOSUB 1820 
2070 EAR#="INDIQUEZ VOS COUPS PAR LEURS" 
газа EDL=12 
2090 EDC-3 
2188 созив 1820 
2119 ERR#="COORDONNEES :" 
2128 EDL=14 
2130 EDC-3 
2149 созив 1820 
2150 BAR#="LIGHE (DE A a H>" 
2169 EDL=16 
2178 Ерге? 
2180 GOSUB 1820 
2190 BAR$="COLONNE 


«ПЕ 1 a 8)" 


EDL=18 

EDC=7 

созив 1828 

"PUIS FAITES 'ENTER*" 


GOSUB 1820 

ERRS="POUR PASSER METTRE Ø DANS LR" 
EDL=22 

EDC=S 

GOSUB 1820 
ERR&="COLONNE " 

EDL-24 

EDC-3 

GOSUB 1820 

FOR DEL=1 TO 1000 
NEXT DEL 

CALL HCHRRCS, 1,32, 522) 
BRR$-"JOUEZ-VOUS ENTRE VOUS <1)" 
EDL=8 

EDC=3 

GOSUE 1829 

BARS="OU CONTRE MOI C2)" 
EpL-18 

EDC=11 

GOSUE 1820 

PREM=0 

CALL КЕУСЯ,КЕУ, ST) 

IF $Т=й THEN 2470 

ЇЕ KEY-49 THEN 2700 

IF КЕҮ<250 THEN 2470 
CALL НСНЯКС8, 3, 32,96) 
GOSUB 2719 

BARS="QUI COMMENCE : VOUS 000125 
EDL=8 

EDC=3 

GOSUE 1820 

ВНЕВ-"00 MOI | «25" 
EDL=19 

EDC=16 

GOSUB 1820 

PREM=1 

CALL KEYL Ø, KEY, ST) 

IF $Т=й THEN 2620 

IF KEY=49 THEN 2700 

IF KEY<>5@ THEN 2620 
PREM=-1 

RETURN 


DATA 16,-4,4,2,-4,-12,-2,-2,4,-2,4,2,2,-2,2,0 


RESTORE 2710 

FOR 151 TO 4 

FOR J=1 TO 4 

READ VLCI,J) 
VLCS- I, DYLLI; J) 
VLC I:9-J)=VLC I; J) 
М1<9-1,9-42-У151,22 
PSC I+2, J+2)=1 
NEXT J 

NEXT I 

PSC4,4)=2 
РБС4,5282 
Р5(5,42-2 

Рз<5, 52 


JL=1 

FOR L=1 TO 8 

FOR C=1 TO 8 

IF PSCL,CX»1 THEN 3148 
FOR D=1 TO 8 

х= 

XC-C 

XL=XL+INCLCD > 

IF XL=MAXLĆD)THEN 3138 
KC=XC+INCEC D > 

IF XC-MRXCCD)THEN 3130 

IF MATCXL,XC2=9 THEN 3139 
IF MATCXL, ХСЭСУТЕН1Т THEN, 392! 


920 
IF MATCL+INCLCD); C+INCCCD))<>-TRAIT THEN 3138 


IF VLCL,COXMRX THEN 3130 
MAX=VLCL, C) 

4050 

JL-L 

NEXT D 
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3148 МЕХТ С 

3150 NEXT L 

3160 CALL HCHRR(22.22,.JL*64) 
3170 CALL НСНАЕ< 24,22,.1С+482 
3188 CALL SOUND: 180,888.15 
3198 GOTO 1156 

z200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 IF PSCXL,XCOX»8 THEN 3310 
3308 PSCXL,XC)=1 

3310 NEXT D 

3320 RETURN 


3420 CALL НСНАКС22,1,32,962 

3430 BRR$-"VOULEZ-VOUS REJOUER ? (0-М9" 
3449 EDL-22 

3450 EDC-3 

34680 GOSUB 1820 

3478 CALL КЕҮСЯ,КЕҮ,5Т> 

3488 IF 5Т-0 

3498 IF 123 
3508 IF 
3519 Фа Gen 


COMMENTAIRES : 
Ligne 130 à 340 : initialisation de 
l'écran 
Ligne 350 à 450 : redéfinition des 
caractéres graphiques 
Ligne 460 à 920 : initialisation des 
variables 


Ligne 930 à 1140 : test du clavier 
Ligne 1200 à 1870 : 
Ligne 1900 à 2700 : présentation du jeu 
Ligne 2710 à 3190 : réflexion de 
l'ordinateur 

Ligne 3230 à 3320 : sous programme 
d'analyse 

Ligne 3360 à 3510 : fin de la partie 


TI 99/4A 


INVERSES 


Blanchissez un carré de trois cases sur trois 
en choisissant parmi les huit combinaisons possibles. 
Pour jouer, pressez simplement le chiffre 
correspondant à votre choix. 


9 CRLL CLERR 
й FOR 157 TO 15 


CALL CHARCIKE+24, "FFFFFFFFFFFFFFFF" 2 


NEXT I 

DIM 63:32 

RANDOMIZE 

Схез 

СС=@ 

FOR I=1 TO 3 

FOR J=1 TQ 3 

Ат, „От мтсеножа+т > 

NEXT J 

NEXT I 

CALL CLEAR 

В PRINT "123": "456": "789": : 
Тва FOR 151 TO 3 


FOR J=1 TO 3 

CALL HCHRRCS*3XI,1U3XJ, CJ4+TH3+32#64+24,2 3 
CALL НСНВЕС6+3Ж1,1й+3Ж.),С+1%3+3›Ж8+24,2› 
NEXT J 

NEXT 1 

FOR Ізі TO 5 

FOR 481 TO 3 

CALL COLORCJ+1K3#3, AC 1, J 24247, 43 

MEXT J 

NEXT I 

Хейс 1:12 

FOR 151 Т0 3 

FOR J-1 TO 3 

IF RCI,.2«?* THEN 269 

HEXT J 

NEXT I 

GOTO зва 

CALL КЕУС4,С,ТУ 


affichage des pions 


265 
265 
267 


IF T-8 THEN 269 
IF C449 THEN 268 
IF С>257 THEN 268 


271 CK=Cx+1 

272 IF C433 THEN 275 
273 CW-3 

274 CALL HCHRRC1,1. 32, 325 


275 
276 
278 
220 


CALL SOUNDI 100, 440,5) 

CC=CC+1 

CALL НСНАЕС 1, CX: C> 

ON C-48 GOSUB 300,350, 400., 450, 500, 550, 600 


: 659, 700 

гэй GOTO гай 

388 FOR Ізі TQ 2 
395 FOR J-1 TO 2 
318 НСІ, JOSRCI,J20*1 
320 IF RCI,JO4«5 THEN 348 
338 RCI, J)=1 

348 NEXT J 

341 NEXT I 

345 RETURN 

350 FOR Ізі TO 3 
355 НС1,120-Я(1,12%1 


зва 
370 
390 
395 
дай 
405 
418 
420 
430 
448 
441 
445 
450 
455 
460 
470 
489 
4980 
бай 
505 
510 ACI DAC 


IF RC1, 1 5 THEN 
RC1,I571 

NEXT I 

RETURH 

FOR Ізі TO 2 

FOR 2-2 TO 3 
ACI; DACI, J2*1 
IF ACI,J3<5 THEM 
ACL: 131 

NEXT / 

NEXT I 

RETURN 

FOR I=1 TO 3 
НС1,1)=НС 1,1 ›+1 
IF Н(1,125 THEN 
RCI,1281 


334 


440 


480 


IF ACI, J345 THEM 
DI. 1951 

NEXT J 

NEXT I 

RETURN 

FOR 151 То 3 


RCI, JACI, JO*1 


IF RCI,J0«5 THEN 638 


680 


RETURH 

FOR I=2 TO 3 
FOR J=2 TO 3 
ЯСТ, JAL 1, J2*1 
IF ACI; ) 9 THEN 
PI, 2-1 

NEXT J 

NEXT I 

КЕТОКН 

FOR 1=@ То 28 
CALL SOUNDI 59, 844,5 à 
NEXT 1 

FOR 151 TO 16 

CALL COLOR( 1,2,4> 
МЕХТ І 

PRINT "BRAVO ! 


730 


GAGNE EN "СС; "ESSAIS" 
UNE AUTRE (CON) "; 


THEN 50 


COMMENTAIRES : 

Ligne 10 à 30 : redéfinitions des 
caractères 

Ligne 40 à 51 : initialisation des 
variables 

Ligne 55 à 90 : tirage aléatoire des 


860 IF R$4»"N" THEN 830 

cases 

Ligne 100 à 254 : affichage de l'écran 
Ligne 260 à 267 : test du clavier 

Ligne 270 à 817 : choix par l'ordinateur 


de l'affichage 


Ligne 820 à 860 : voulez-vous rejouer ? 


Un message 
Utili 


TI 99/4A 


CRYPTO-DRAME 


ez les quatre touches 


codé apparait sur votre écran. 


du curseur pour découvrir le mystére qui l'entoure. 


10 CALL SCREEN, 122 
CLEAR 


тай 
118 
120 
138 
148 
150 
168 
178 
154 
198 


CALL 
DATA 
DATA 
DATA 
DATA 
CATA 
DATA 
CATA 
DATA 
DATA 


"Blagaag3r 3F38383F " , "ававяйарвеесзсве", "Oppe LE AAT 


WEISEN MEIN 


1 D9p0ppEOEG 181818" 


„"зЕзазазезеявайяя", "врвсесесасававан" 


"C363636363B800880", "Е918181818й6йййй", "2111 1Б8ЕВЕЙВВЙВЕ" 
"9202020301000000", "121 21 Е еЕвайявая", "пваватагзегагисй" 
"вадяйййа? 3444463", "вайававатагагага", "OBgaaaaadze424243" 
"авававваоЕзазара", "вайвагаяотваз4ат", "авзававазавнявва" 
"2агагаззайвавава", "4141417680009й88", "202 22000Е0ВЯВЯ" 
"DAD DOE OI, "5652525Ей@й@йй@ййй" , "94949497000000AA" 
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FOR 1596 TO 122 
READ A$ 
CALL CHARK I A$) 
NEXT I 
PRINT ТАВс62: "Е MESSAGE SECRET" 
PRINT :::: 
PRINT "VOUS DEVEZ DECOUVRIR UN MES-" 
PRINT 
PRINT "SAGE POUR CELA UTILISEZ LES" 
PRINT 
PRINT "TOUCHES :E,X,S,D" 
PRINT 
PRINT "ELLES VOUS PERMETTENT DE DE-" 
330 PRINT "PLACER LES ELEMENTS ОП PUZ- ZLE,R 
LA MANIERE DL! JEU CON NU SOUS LE NO 
M DE TROUIHN" 
348 PRINT 
PRINT "ВОН COURRGE!!..." 
PRINT 
PRINT "EN CAS DE SECHE TAPEZ "ЕСТМ RID'" 
FOR 141 TO 1000 
NEXT I 
DIM Е(282 
FOR 120 TO 26 
ВС I )=96+I 
NEXT I 
CALL CLEAR 
CALL COLOR(9,5, 1) 
CALL COLOR(19,7,19 
CALL COLOR(11:14,1) 
CALL COLOR(12,13,1) 
CALL SCREEN( 122 
FOR Кей TO 26 
RANDOMIZE 
Je INTCC28-8 жено > 
LINT КИ? > 
C=X-7 L 
CALL HCHRRCS*L,12*C,BCJO» 
FOR K=J TO 27-4 
4 2:42 8) 
NEXT K 
NEXT X 


COMMENTAIRES : 


Ligne 10 à 100 : initialisation de 
l'écran 

Ligne 110 à 190 : datas des caractères 
Ligne 200 à 230 : redéfinition des 
caractères 

Ligne 240 à 390 : présentation du jeu 


Үз11 

2-18 

CALL HCHRR(Y,Z,30) 
CALL КЕҮС@,К,5› 

IF S428 THEN 678 
CALL HCHARCY,2,32) 
GOTO 629 

IF К<269 THEN 720 
CALL GCHARCY-1,2Z,M} 
CALL НСНӨКСҮ, Z.M) 
Y=Y-1 

GOTO 620 

IF K<>88 THEN 770 
CALL GCHRRCY*1,2,M» 
CALL HCHRRCY,Z,M» 
Y=Y+1 

GOTO 620 

IF К<268 THEN 820 
CALL GCHAR Y, Z+1,M> 
CALL HCHRR(CY, 2.) 
2-2%1 

GOTO 628 

IF К<283 THEN 870 
CALL ССННЯЕС Ү,2-1,М2 
CALL НСННЕСҮ,2,М2 


ҒОЕ Ізі ТО 27 
CALL HCHRR(Z23, 1+3, ВЗССВЕСЕК AS; 1,122) 
NEXT І 
FOR 151 TO 13 
CALL НСНАК‹ 24, 1+3, ASCCSEGS#C МФ, I, 1 232 
NEXT І 
FOR I-388 ТО 350 
CALL SOUND(-58,I,8,I14588,25 
NEXT 1 
тава CALL HCHRR(C23,1,32,50) 
1918 GOTO 620 


Ligne 400 à 610 : affichage du message 
codé 

Ligne 620 à 660 : test du clavier 
Ligne 670 à 710 : premiere direction 
Ligne 720 à 760 : seconde direction 
Ligne 770 à 810 : troisième direction 
Ligne 820 à 860 : quatrième direction 
Ligne 880 à 1010 : indice donné par 
T^ordinateur 
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TOUS EN FORME... 


Créez une forme et obtenez immédiatement ses codes. 
Vous pourrez ensuite les implanter 
dans un autre programme en Basic. е 
Utilisez les quatre touches d'édition pour vous diriger, 
1 pour le marquage d'un carré, 
O pour son effacement et F pour arréter. 


100 CALL CLEAR 
119 PRINT "CREATIONS DE FORMES" 


120 DIM #<8,82, НУ 152 

isa CALL CHARÇ 129, "вадайй1 81 заввайа" > 
149 CALL СНАКС 130, "ВЯ7ЕТЕТЕТЕРЕРЕВВ" > 
150 CALL СНАКС 121, "й203838546С542383800" > 
160 DATA 8,1,2,3,4,9,6, 7,8, $ P, BC, D. E, F 
170 FOR Май TO 15 

188 READ НСМ? 

198 МЕЯТ М 

гай REM 

218 CALL CLEAR 

224 INPUT "VOULEZ-VOUS CREER UNE FORME <0/М27":КФ 
230 IF R#&="0" THEN 279 

248 IF R$="N" THEN 1060 

254 GOTO 220 

279 PRINT :"E 8 D X DEPLACEMENTS 1 MARQUAGE D'UN CARRE Ø ЕРЕН 
СЕМЕНТ Е FIN" 

280 L-3 

298 С=1@ 

399 GOSUE 1089 

318 REM 

329 IF RKL-2,C-95-1 THEN 358 

330 CALL HCHRRCL, C, 882 

348 GOTO 360 

358 CALL HCHRRCL. C, 1312 

364 DL-G 

378 рС=й 

388 CALL KEY, 4, CAR, МОУ à 

390 IF NüUV-B THEN 539 

400 IF CAR<>49 THEN 450 

418 RKL-2,0-95-1 

420 CALL HCHARÇL,C,131) 

430 DC=1 

440 GOTO 620 

450 IF CAR<>48 THEM 500 

460 ACL-2,C-9)=0 

470 CALL HCHAR(L,C, 129) 

488 DC-1 


498 GOTO 628 > 


35 


E 


9 THEN Рей 
9 ТНЕН 550 
3 THEM 576 
8 THEN 590 
88 THEM 610 


| заа 
зїй 
528 
538 
540 
558 1 
569 GOTO 620 
578 Dü=-1 
580 GOTO 628 

598 DC=1 

epp GOTO 620 

619 0151 

620 IF RKL-2,C-3)-1 THEN 650 
638 CALL Hung LC 129) 

648 СОТО 676 

658 CALL HEHAR L: Cs 138? 

668 REM 

678 LF=L+DL 

688 СЕ=С+0С 

650 IF CF<10 THEN 320 

тай IF СЕ<=17 THEN 730 

718 CF=10 

T28 LF=LF+1 

T3H IF LF<3 THEN 328 

740 IF LF>19 THEN 328 

758 LSLF 

260 Gett 

тт GOTO 320 

780 REM 

799 CHf="" 

800 CALL CLEAR 

818 PRINT "CODAGE DE LA FORME" 


COMMENTAIRES : 
Ligne 100 à 120 : initialisation des 
variables du programme 
Ligne 130 à 150 : redéfinition des 
caractères graphiques 


Ligne 160 à 190 : création d’un tableau 


des chiffres hexadécimaux 

Ligne 200 à 270 : présentation du 
programme 

Ligne 280 à 300 : initialisation de 


S28 PRINT 

830 PRINT 

S58 FOR I-1 T0 8 
868 Ғ-й 

SCH FOR 2141 TO 4 
S88 Е-2ЖЕ+АСТ, 1) 


890 HEXT 2 
зай СН®=СН%&НФСЕ > 
910 F=0 


928 РОК J-5 TO 8 

930 F=2*F+AC I, 12 

940 NEXT J 

зза CH$=CH%2%H5C F > 

960 NEXT I 

970 REM 

980 PRINT :TABC 10); CH 

зэв CALL CHAR 132, CH) 

1984 PRINT :"CE QUI DONNERA LA FOR 

ME SUIVANTE :" 

1818 FOR К=1 TO 14 

1026 PRINT 

1030 НЕХТ K 

1945 CALL НСНАЕС 16, 15,132? 

1060 STOF 

1979 КЕЙ ee 

тава FOR I=3 TO 10 

1090 FOR J=10 TO 17 

1188 CALL НСНЯЕ<І,.Ј, 1292 

1118 PK I-2,C-35=0 

1129 NEXT J 

1138 NEXT I 

1148 RETURN 
variables 
Ligne 310 à 490 : routine principale 
première partie 
Ligne 500 à 610 : test du clavier pour 
le changement de direction 
Ligne 620 à 790 : routine principale 
seconde partie 
Ligne 800 à 1060 : codage de la forme 
Ligne 1080 à 1140 : affichage du 
caractère en cours de création 
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MOON PATROL 


Rejoignez la base lunaire la plus proche 
en évitant les projectiles des vaisseaux ennemis 
et les cratéres insondables. 
Tirez verticalement avec le curseur «haut » 
~et horizontalement avec le curseur «droite x. Pressez 
la barre d'espace pour tirer. 


40 CALL СНАКС 144, DEFBDFFFBzFEEFBB" > 
5 CALL СНВЕС 145, "BBB1CIC2E3BD?BEF" à 


T GÜSUB гай 
8 CALL SCREENS) 

9 CALL CLEAR 

18 CALL CHARS 128, "00183Е187ЕЕЕТЕЗС" > 
15 CALL CHAR 129. "вййв4завававава 
га CALL CHARC 139, "1800001200001201 
25 CALL CHARK 136, "ай1866ЕЕбЕ1ЗЙО! 
За CALL СНАВС 137, "ВЕЙЕВЕ1ЙЕЗЕТЕТИГ" > 
35 CALL СНВКС 138, "вагазс1азсасаста" > 


за CALL COLORC13, 2.6) 
55 CALL COLDRC14, 7.62 
60 CALL COLORC15,14,6) 
65 RANDOMIZE 


за T=1 
85 Y=16 
за L-8 


95 В=1 

194 CALL CLEAR 

105 PRINT ВЕ: 

118 CALL НЕННЕС 23-L, 10.128) 
128 CALL HCHRRCS. Y, 136) 
125 IF T=1 THEN 135 

138 CALL нснаес23-тт, M, 1372 
135 IF B-1 THEN 145 

140 CALL HCHAR BY, 10, 1382 
145 CALL KEYC4,M,N» 

146 CALL GCHAR 24, 1B, F > 
147 IF F=145*#C1-LO)THEN 618 
198 ТЕ Ней THEN 200 

155 IF М<>69 THEN 178 

164 GÜSUB 500 

ies GOTO гай 

170 IF М< 268 THEN 154 

175 GOSIG 550 

176 GOTO 200 

180 IF М<>З2 THEN 200 

185 IF Lei THEN гай 

198 Lei 

191 50550418 

195 GOTO 202 


Leg 
209 ҮҮеЇНТСЕМОЖ2 
218 ҮеүжсСҮ-ҮҮЭ20ЖҮҮЖСҮ-Үүж16420 ЭЖСҮҮ-122Ж2 
211 IF Y#E<?19 THEN 215 


216 БҮ-ВҮ%1 

217 IF BY-23*C1-B)THEN 618 
218 IF Map THEN 220 

219 Те! 

224 IF T=Ø THEN 240 

225 IF RHD<.6 THEN 240 


Тай 
231 ТТ-1МТСЕМОЖ2) 
235 H=32 
IF ИЖС1-ТЭЖ 1-ТТэ-18й THEN бай 


COMMENTAIRES : 


Ligne 10 à 45 : définition des 
caractères 

Ligne 50 à 95 : initialisation des 
variables 

Ligne 130 à 270 : programme principal 


REC ІНТСЕМОЖ2 2144 3 
THEM 288 


258 R$-SEGS*C A$, 2.27? 
260 IF SEGS(R$. 22.3 
270 AS=SEGSCAS, 1,27 2 
284 КЕМ 

гай GOTO 100 

500 IF B=1 THEN 51H 
504 5С=5С+1@@ 

505 CALL уУснаксву, 18, 138, 22-L-BY à 
586 сото 520 

518 CALL VCHRR(CS3, 18,128, 19-L) 

520 В=1 

538 CALL SOUND(C3BB, 288,52 

535 CALL VCHRRCG, 18, 32, 19-L 2 

540 RETURN 

558 IF T=1 THEN 570 

555 IF M»28 THEN 570 

556 IF 1<>2ТТ THEM 578 

56й CALL HCHRRC23-L,11,129,W-11? 
562 T-1 

563 5С-5С%50 

565 GOTO 580 

570 CALL HCHRREC23-L. 11,129,182 
588 CALL SOUND 300,500.95) 

585 CALL НСНАКС23-1,11,32,1й2 


599 RETURN 
epp IF L=1 THEN 250 
610 PRINT :"SCORE : ";SC 


624 PRINT 
638 INPUT A$ 


"UNE AUTRE FRRTIE COH) "; 


ТНЕН Үй 
650 IF R$«»"N" THEN 620 
660 END 
тай CALL CLEAR 
705 PRINT " PRTROUILLE" 
714 PRINT "TIRS --> CURSEUR HAUT, DROIT 
"SAUT ==> ESPACE": ii IL 
720 FOR 1-0 ТО 2494 
730 NEXT I 
740 RETURN 


Ligne 500 à 540 : premier sous programme 
d'affichage 

Ligne 550 à 590 : second sous programme 
d'affichage 

Ligne 600 à 660 : fin de partie 

Ligne 700 à 740 : sous programme de 
présentation 
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PUISSANCE 4 


Alignez le premier quatre pions de votre couleur 
et ridiculisez votre adversaire. 
Pour jouer, rien de plus simple, il vous suffit de presser 
la touche correspondant à la colonne choisie. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
CALL 


DIM 96,82 
FOR 151 TO 4 


READ 
CALL 
CALL 
CALL 
NEXT 


FOR 1120 TO 124 


RERD 
CALL 
НЕХТ 
CALL 
CALL 
CALL 


FOR 151 TO 44 


READ 
CALL 
NEXT 
CALL 
CALL 


11517 
FOR 156 TO 9 


CALL 


11=11-1 


NEXT 
CALL 
CALL 
CALL 
Y=24 
H=18 


M$="Dy/*VIDEO 91984" 
GOSUE 1719 
FOR Ізі TO 1998 


MEXT 
CRLL 
CALL 
H=3 

CALL 
CALL 


FOR 2-1 TO 8 
FOR Ізі TO 6 
ACI, J)=0 


HEXT 
HEXT 
Mei 


96, "ВВ7Е?Е?ЕТЕТЕТЕТЕ", 97, "ВВЕЕРЕРЕЕЕЕЕЕЕЕЕ" 

98, "РЕТЕРЕРЕРЕТЕТЕВИ", 99, "ЕЕРЕРЕРЕРЕРЕРЕЙП" 

"G14397@F1F3FFFFF", "ЕРЕЕРСЕЗЕФЕВСОЗЕ" 

"ВЕСВЕЙЕВЕЗЕСРЕРЕ", "FF7F371F9F970391","FFFFFFFFFFFFFFFF" 
4,3,2,4,5,2,4,4,1,6,4,1,8,5,5,8,7,5,12,6,1,10,9,1,12,9,5 
16,11,3,18,13,3,16,12,1,16,13,1,18,12,1,20,11,1,20,12,1,16,15,3,18,17,3 
16,16,1,16,17,1,18,16,1,28,15,1,20,16,1,16,19,5,16,21,5,16,28,1,18,20,1 
12,23,5,12,25,5,13,24,1,8,27,5,8,28,1,8,29,1,12,28,1,12,29,1 
4,31,5,4,32,1,6,32,1,8,32,1 

10,14,2,7,17,6,11,15,1,11,16,1,11,18,1 

CLEAR 


CH, COF 
CHARK CH, COSS } 
CHARK СН+В, COS 2 
СНАКССН+ 16, COS) 
1 


Cos 
CHRRC I, COS > 

г 

COLORE 11,1,112 
COLOR( 12,1,12 
SCREEN( 32 


E,C,D 
VCHRECB, C, 124, D? 
I 

НСНАК< 12,24, 122) 
HCHRRC 14,24, 123) 


HCHRRC 1, II, 1205 


I 

HCHAR£ Э, 15, 121) 
HCHRR( 8, 16, 121? 
COLORC 12, 11,12 


1 
COLOR( 9,5, 112 
COLOR( 18, 7,115 


SCREEMC3 2 
CLEAR 


I 
J 


668 H=13 1219 FOR K=6 TO I*1 STEP -1 


670 Mf="PUISSANCE 4" 1229 IF ACK:CXÈT ТНЕН 1269 
620 GOSUB 1718 1239 H=H+1 
690 FOR J-18 ТО 24 STEP 2 1240 ТЕ H=4 THEN 1429 
TBB FOR 154 TO 14 STEP 2 1258 HEXT К 
714 CALL HCHRRCI,.,1122 : 1268 H=1 
тай CALL НСНАР< 1,181,113) 1278 151 
739 CALL HCHARÇ1+1,4J, 1142 1288 M-1 
740 CALL НСННЕС 1%1,.1%1,1152 1298 GOSUE 1690 
759 НЕХТ I 9 1308 L=-1 
760 МЕТ J 1310 M=-1 
тта CALL COLORC11,1,11) 1329 GOSUB 1600 
тва FOR 1511 TO 25 STEP 2 1330 N=1 
798 CALL HCHRRC3, 1,<1-1272-4+642 1340 L=-1 
800 HEXT I 1358 М=1 
819 V=23 1360 GOSUB 1680 
829 M$=" JOUEUR #"S&STRE 1) 1370 141 
зза 50508 1710 1388 M=-1 
840 У-24 1390 GOSUB 1698 
850 M$="COLOHHE 7: " 1499 HEXT T 
869 GOSUB 1710 1419 сото 819 
8798 FOR T-1 TO 2 1420 FOR K=119 TO 800 STEP 19 
S888 CALL HCHRR(23,21,T*482 1439 CALL SOUND(-10, 4,2, 4*50,22 
998 CALL SOUND -59, 440,92 1440 NEXT я 
999 CALL КЕҮ(9,КЕҮ,ЕТ) 1450 CALL SCREEN(8 3 
919 IF ET=9 THEN 900 1469 CALL HCHAR(23, 1:32:64) 
929 C-KEY-64 1470 У-22 
939 IF «С<1)+< С?ВОТНЕН 900 1489 H=3 
940 FOR 156 TO 1 STEP -1 1490 M$="LE JOUEUR #"&STRSCT)8" A GAG 
954 IF ACI,C)=@ THEN 980 НЕ LA PARTIE" 
969 МЕХТ I 1500 GOSLE 1718 
978 GOTO 880 1510 V=24 
980 ALI СЕТ 1520 H=3 
990 IF T=2 ТНЕМ 1020 1538 M$=" VOULEZ-VOUS REJOUER ТСОУН)" 
1888 P-96 1222 
1919 GOTO 1939 1540 GOSUB 1718 
1020 P2184 1550 CALL KEYCB,KEY,ET? 
1939 FeIX243 1569 IF ET=0 THEN 1550 
1040 G=C#2+9 1570 ТЕ KEY=79 THEN 589 
1050 CALL HCHRRCF-1,G-1,P 1580 CALL CLERR 
1968 CALL HECHRRCF-1;G,P*12 1590 
1070 CALL HCHRRCF,G-1,P422 1600 
1080 CALL НСННЕСЕ,б,Р%З) 1618 
1898 N-0 č . 1629 
1188 FOR K=C TO 1 STEP -1 1630 5-541 
1119 IF АТ, КЪТ THEN 1158 1649 IF СЕФ1О+СК?6ОТНЕН 1788 
1120 Hecht) 1659 IF (5<12%(5280ТНЕН 1700 
1130 IF Med THEN 1420 1660 IF ACR:52C>T THEN 1780 
1149 HEXT K 1670 N=N+1 
1158 FOR K=C+1 TO 8 1850 MARIE 1420 
1160 IF ВС1УК N 
1178 мен” EE 1700 RETURN 
1180 IF H=4 THEM 1420 1719 FOR Ізі TO LENCM$> 
1199 HEAT K 1728 CALL HCHRR(V,H-1*1,RSCCSEGSCMS, I 
12808 Hei 1739 NEXT I 
1749 RETURN 
COMMENTAIRES : Ligne 670 à 1590 : programme principal, 
calcul des positions des pions, 
Ligne 100 à 190 : datas des variables du affichage des pions, mouvements des 
programme pièces 
Ligne 200 à 480 : initialisation de Ligne 1600 à 1690 : sous programme de 
l'écran et des variables du jeu vérification 
Ligne 490 à 660 : tracé du décor de Ligne 1710 à 1740 : sous programme 
1“ всгап d'affichage des pions 
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АОАМ ЕТ ЕМЕ 


L'ignoble serpent qui a poussé Еуе à manger la pomme 
est aujourd'hui enfin puni : 
il doit engloutir le plus de fruits possibles dans ип temps 
imité, tout en évitant les obstacles 
qui surgissent devant lui 
Utilisez les quatre touches du curseur pour vous déplace 


| 'SABLATOU CLAUDES =; ««СНЕМНИ сивен. 


| CLEAR 
120 CALL SCREEN(2) 
| 130 REM жлне кк ОТЕҒЕКЕМТЕ CARACTERES =S > 
жаза» 
140 LAP1#="00020302624441 6" 
| 150 LAP28=" 10262BA8AB4B0A0 4" 
180 ЕХРЕС174“88492А14ЕЗ345291" 
170 ЕХРЕСЗ) -"000008422892401 en 
180 EXP#(2)=" 0020021 442144924" 
190 EXP#(4)="0000000024484210" 
200 EXP#(5)="0000000000021 044% 
210 EXP#($)="0000000000000028* 
220 УТЕ%-"00003С427ЕБ07Е44" 
230 Н0МФ«"0С081С2848142242% 
240 CAROT*="EE107C?EBEBEFEéC* 
250 СКОСёч“36771С0С08507ЕЗЕ" 
260 НЕВВФ-"10114ААА1С50ВЕ1С" 
270 BOULS-"7EA3BDBFBFBFSF7E" 
280 FLEINSe"FFFFFFFFFFFFFFFF* 
290 VIDES=" * 
300 REM wwswssyasaasaanaanasasnDEFINITION DES САЯАСТЕРЕЗ» 
КЕ 
310 CALL снан‹42‚,скос®› 
320 CALL СНАВ e, PLEINS) 
330 CALL СНАКС?7 VIDES) 
340 CALL CHAR(CIO4, UIDES 
350 CALL СНАВС105,НЕКВЬ) 
360 CALL СНАВС112,БАР18) 
370 CALL CHARC113 VIDES) 
380 CALL CHARC120,LAP13) 
390 CALL СНАВС128 ОТЕв) 
400 CALL СНАВС129,НОМ6) 
410 CALL CHARC130,CAROTS) 
420 CALL CHARC136,UTRE) 
430 CALL CHARCIS7,HOMS) 
440 CALL CHAR(I38, CAROT#) 
450 CALL CHARCI4A,UTRS) 
460 CALL СНӨВС145,НОМӨ) 
470 CALL CHARCI46, CAROTS) 
480 CALL CHAR(S2, BOULE) 
490 РЕМ эк иин инки КАТТЕТВОТТОН DES COULEURSsexasse seek nx di EENEN 
x 
500 CALL COLOR(2, 14,15) 
510 CALL COLORCS,9, 14 
520 CALL COLORCIO, 13,4) 
530 CALL COLORCIT, 7, 15) 
540 CALL COLOR(12, 2,4) 
550 CALL COLORCI3, 14,19) 
540 CALL COLOR(IA, 9,15) 
570 CALL COLOR(IS, 13,15» 
580 CALL COLOR(IÓ, 1, 15) 
590 FOR 1-3 TO 8 - 
$00 CALL СОСОВС1,16,4) 
NEXT I 


TTT 


820 


430 
40 
850 
660 
870 
880 
590 
700 
710 


720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


850 
860 
870 
880 
890 
900 
710 
920 
930 
940 


950 
950 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1040 
1070 
1080 
1090 
1100 


1120 
1130 
1140 
1450 
1180 


1170 
1180 
1190 
1200 
1210 
po 
1220 
1230 
1240 
1250 
1240 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


1340 
1370 
1380 
1390 


1410 
1420 
1430 
1440 
1450 
DZ 
1440 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


1550 


жәе 


жәке 


жә» 


Ёс 


1110 FOR T=0 TO 20 STEP 5 


DG 


por 


1400 NEXT 1 


1540 NEXT 1 


REM AER EENER к АЕРІСНАСЕ DE LA ROUTEXXXUOHOHOOHOOUOUOUROOE 


CALL HCHARCZ1 ,1,104,7#32) 

CALL HCHARCS, 1,113, 15#32) 

FOR 1=1 TO 29 STEP 4 

CALL НСНАВС4,1,76,2) 

CALL HCHAR(20,1, 96,2) 

CALL НСНАВС4,182,97,2) 

CALL HCHAR(20,142,97,2) 

NEXT I 

REM X44ODOUOHOHOHROHORRURRRKAFFICHAGE DES HERBESYG4Süa Xn  & OG OO OH Donne 


FOR 1=1 TO 10 
CALL VCHARC INT RND#2) +1 INT(RND&32) £1, 105) 
NEXT I 

FOR 1=1 TO 20 

CALL HCHARCINT(RND44) +21 , INTCRND&32) +1 , 105) 
NEXT 1 

CALL HCHAR(23,4, 96,9274) 

CALL HCHAR(21,29,120,3) 

CALL UCHAR(23,5,112) 
80808 850 

GOSUB $40 

вото 2080 
DST 


тээ 3 


Y=21 

X=4 

C$=SEG$ "000000" , 1 ,-LENCSTRSCHI 2) )&STRE CHI) 
GOSUB 1160 

X=14 


Y=21 

C$-SEG$ "000000" , 1 ,é-LENCSTR& SC) ))&STRSCGC) 

90508 1140 

RETURN 

REM янилийихийлхихиййихийн SEI CHE DES OBSTACLES*w 


мж 


0В5-128 

80808 1210 

0888129 

60808 1210 

085-130 

GOSUB 1210 

FOR Ізі TO DIF 

Y=INT CRND1 545 

Xe INT CRND#26) +5 

CALL GCHAR(Y,X,0BS) 
ЇЕ (08869113) #(088<>42) ТНЕМ 1020 
CALL UCHARCY Х, 152) 
мехт 1 

IF DEMO=1 THEN 1150 
ЇЕ CAROT>10 THEN 1150 
FOR Ізі TO CAROT 


CALL SOUND(-200,1200,T) 
NEXT T 
NEXT 1 
RETURN 
REM жининин) 


т00010 


ax enin ine 


FOR I=1 TO LEN(C) 

CALL HCHARCY,X*I-1,ASCCSEGS(CS 1, 100) 

NEXT 1 

RETURN 

REM ниниинижинининнниниянинниян 005 PROGRAMMES CO анин» нийл OUO GU ON 
0 

FOR Те TO 3 

FOR Ізі TO DIF 

Y= INT CRND#15)+5 

X= INT (RND#28) +5 

CALL GCHARCY,X, 001». 

IF (0010113) #< 001 (242) THEN 1240 

CALL УСНАКСҮ ,X, OBS» 

IF ((0BS=1 30 ) + (0885138) + (0881468) #0 THEN 1310 
CAROT=CAROT+ 1 

NEXT 1 

0BS=085+8 

NEXT T 

RETURN 

REM кэнкинхийхийхиийлйлаалхихинхаВОЦи RR E EEE A EBE EEEE AEAEE ELE A IO nn 


FOR 1-1 TO 3 

FOR T=0 TO 20 STEP 10 

CALL SOUND(-200,1200,T,440,T,800,T) 
NEXT T 


SC=SC+INT CRND#1 000) +100 

GOSUB 890 

GOSUB 1450 

вото 3540 

REM. иинвникнинииниккижиняниян/ТЕВ EN PLUSKIXXIHEAXHRIURUUUO HO OL нини 
ж 

IF vis) THEN 1590 

IF 8С(10000 THEN 1580 

Visi 

Муму 

CALL HCHARC21 124,104 , 6) 
С®%=5Еб® С "xxxxxx" , 1 үнд 

FOR i=1 TO LEN(CC$) 

CALL HCHAR(2I ,26+1-1 ,ASC(SEGS CCS , 1,02) 


FOR 150 TO 20 STEP 2 


1540 CALL SOUND(-200,-1,1) 
1570 NEXT 1 
1580 RETURN 
1590 IF У2-і THEN 1430 
1400 IF SC(20000 THEN 1580 » 
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1610 0251 прати А-Я ас ла 


1820 GOTO 1490 
1630 IF V3=1 THEN 1580 
1640 IF SC(30000 THEN 1580 

1650 93-1 

1660 GOTO 1490 

1670 REM ннн ннан ОНО НОС ининин АРІМ ЕМ MOINSIIOHOOUOHERN GOHHOGHOHO GGG E 
жәке 

1480 IF NU-0 THEN 1770 

1490 NU-NU-I 

1700 СФ-5ЕОФС“хххххх",1,М9) 

1710 CALL HCHAR(21,26,104,6) 

1720 FOR 1-1 TO LENCCS) 

1730 CALL HCHAR(21,26+1-1 ,ASCCSEGS (CS, 1,10)? 

1740 NEXT | 

1750 GOSUB 3000 

1760 GOTO 3480 

1770 REM хниижииллхалилилилтлаихилаааибАМЕ OVER 
sone 

1780 CALL SOUND(200,220,0,440,0) 

1790 CALL SOUND(200,780,0,660 ,0) 

1800 CALL SOUND(200,440,0,120,0? 

1810 CALL 500Ч0С1000,1200,0,990,0,1400,0» 

1820 C#="qqGAMEQOVERgq" 

1830 FOR Те! TO LEN(CS) 

1840 CALL HCHAR(12,11#1 ,ASCCSEG#CCS,1,13) 

1850 CALL SOUND(S0,-7,0) 

1840 NEXT I 

1870 IF HI>=8C THEN 2050 

1880 HleSC 

1890 REM хинжнинияииининининиякияки СНАНТЕ. НТ -SC OIRE AE AE B EAER BE EAEE EAEE EO e a EG GGG 
p ! 
1900 IF HI?SC THEN 1770 

1910 FOR 1=1 TO 3 

1920 CALL SOUND(100,220,0,440,0) 

1930 МЕХТ 1 

1940 FOR T=1 TO 50 

1950 МЕХТ Т 

1960 CALL SOUND(200,194,0,440,0) 

1970 FOR T=1 TO 20 

1980 NEXT T 

1990 CALL SOUND(100,220,0,440,0) 

2000 C$-"qqYOUQHAVEQHIGHTqSCOREqq" 

2010 FOR 1-1 ТО LEN(CS) 

2020 CALL НСНАК(14,4%1-1,45С(6Еб%(СФ,1,122» 

2030 NEXT 1 

2040 GOTO 2060 

2050 CALL SQUND(1000,110,30,110,30,770,30,-4,0) 

2060 CALL KEY(S,R,E) 

2070 IF E=0 THEN 2060 ELSE 2080 

2080 REM икежнининининияняниннинининии ии RDEMO RA CO E GO OG GOD EN 
нених 

2090 SC=0 

2100 RANDOMIZE 

2110 DEMO=1 

2120 PCR=4 

2130 DIF=1 

2140 GOSUB 940 

2150 HY=10 

2140 PCR=PCR+1 

2170 CALL HCHAR(23,PCR,112) 

2180 Нх=1 

2190 LAP=0 

2200 HXeHxet 

2210 IF HX)32 THEN 2360 

2220 CALL GCHARCHY,HX, 001) 

2230 CALL UCHARCHY , HX, 112) 

2240 IF 00152113 THEN 2570 

2250 IF LAP=0 THEN 2290 

2240 LAP=0 

2270 CALL CHARC112,LAP18) 

2280 GOTO 2310 

2290 LAP=1 

2300 CALL CHARC112,LAP28) 

2310 CALL НСНАКСНҮ,НХ,113) 

2320 НҮ-НҮФСЕМОС.5)-СЁМОС.5) 

2330 IF HY>4 THEN 2350 

2340 HY=5 

2350 IF HY(1 THEN 2370 

2340 HY=1? 

2370 IF HX«32 THEN 2410 

2380 CALL HCHAR(23,PCR, Sei 

2390 GOSUB 940 

2400 GOTO 2140 

2410 REM AE BEDEA AE ME AEA BEBE EAEE BE AEA AE R eae B W AAA E JOUER ?жиниминиииниянинаняниникиникиниякии. 
n 

2420 CALL KEY(S,RET,ET) 

2430 1F ET=0 THEN 2200 

2440 IF СВЕТ 49) *KRET?SATHEN 2200 

2450 DIF=RET-48 

2440 CALL 600М0(1000,1200,0,3000,0,2000,0) 

2470 CALL HCHAR(24,10,104,18) 

2480 FOR 1-1 TO DIF 

"etit 

2500 NEXT I 

2810 DIF$="LEVELh"&DIFS 

2520 FOR I=1 ТО LENCDIFS) 

2530 CALL HCHAR(24,10+ 
2540 NEXT 1 

2550 DIFS="" 

2540 GOTO 3460 

2370 REM хинийххикилийлийхийхжийжиа007А TU TOUCHE 2X )Ó)UUOOLOHOHOHOURO GO 
nl 

2580 IF 001-138 THEN 2740 
2590 IF 001-146 THEN 2740 
2600 IF 001-130 THEN 2790 


UU OHOUHOOHOOHOOOHOO nOn 


»ASCCSEGSCDIFS 1,15)? - 


2210 REM XIXXWXJ XR XA OK OLIO HH UE REXPLOS I ONAHOUOUDUHUE OHIO нинин 
хөвөх 

2620 FOR 1-1 TO 6 

2630 CALL CHARCI12,EXP#C1)) 
2640 FOR те: TO 20 

2450 NEXT T 

2640 NEXT 1 

2670 CALL HCHAR(HY HX,113) 
2680 CALL НСНАВС5,1,113,15832) 
2690 CALL HCHAR(21,14,48,6) 
2700 GOSUB 940 

2710 сащ. НСНАКС23,4,96,32-6) 
2720 б0ТО 2080 
2730 REM assume 
eee 

2740 SC=SC+PRC*50 
2750 GOTO 2800 
2740 SCeSC*PRCW20 
2770 GOTO 2800 
2780 SC=SC+PRCK10 
2790 6070 2800 
2800 REM иккини кин» 

2810 60808 890 

2820 CALL HCHARCHY,HX,113) 

2830 GOTO 2200 

2840 REM хнжиийрьвитихикияиаж 

2850 CAROT=0 

2840 CALL НСНАВ(5,1,113,15932) 

2870 ОЕМО-0 

2880 GOSUB 940 

2890 GDSUB 850 

2900 CALL НСНАВ(23,4,78,32-6) 

2910 CALL HCHAR(21,26,104,6 

2920 CALL HCHARC23, 4,112) 

2930 50-0 

2940 У1-0 

2950 U2-0 

2760 М3 

2970 V3=0 

2980 CALL HCHAR(21,26,120,3) 

2990 PRO=4 

3000 HY=12 

3010 HX=1 

3020 CALL SOUND(1000,1400,0,440,0,880,0) 

3030 RETURN 

3040 REM wxkiionnnnnnononaneneQU^AS TU ENCORE TOUCHE ?жияникики 
m 

3050 IF 001-138 THEN 3170 

3040 IF 001-144 THEN 3200 

3070 IF 001-130 THEN 3230 

3080 IF 001442 THEN 3400 

3090 REM wenn 
DH 

3100 FOR 141 TO é 
3110 CALL CHARC112,EXP#C1) 

3120 CALL SOUND(-200,-5,(1-1)#2) 

3130 NEXT 1 

3140 CALL UCHARCHY,HX, 113) 

3150 GOTO 1870 

3140 REM EE 

3170 SC=SC+PRC*50 

3180 CALL SOUND(500, 1500 ,0) 

3190 GOTO 3250 

3200 SC=SC+PRC*20 

3210 CALL SOUND(500 770,0) 

3220 GOTO 3250 

3230 sc=SC+PRC*10 

3240 CALL SOUND(500,220,0) 

3250 GOSUB 890 

3260 CAROT=CAROT-1 

3270 IF CAROT=0 THEN 1350 

3280 GOSUB 1450 

3290 CALL HCHAR(HY,HX,42) 

3300 GOTO 3610 

3310 CALL УСНАНСНУ,НХ,112) 

3320 REM eddi 
жани» 

3330 CALL SOUND(500,220,0,880 ,0 440,0) 

3340 CALL HCHAR(23,4,96,32-6) 

3350 PRC=PRC+1 

3340 CALL HCHAR(23,PRC, 112) 

3370 60808 940 

3380 HX=1 

3390 GOTO 3480 

3400 SC=SC-100 А 

3410 CALL SOUND(1000,-7,15) 

3420 IF 8С)0 THEN 3440 

3430 вото 3090 

3440 GOSUB 890 

3450 GOTO 3540 

3480 REM ижжнжикикиижииенинияминаниниии J E цикекик неке никак кк кекке EEEE ON ee 
ene 

3470 GOSUB 2840 

3480 REM 

3490 IF HX=32 THEN 3320 

3500 HX=HX+1 

3510 CALL GCHARCHY HX, 001» 

3520 CALL UCHARCHY HX, 112) 

3830 IF 0013113 THEN 3040 

3540 IF LAP=0 THEN 3580 
3550 LaP=0 

3540 CALL CHARCI12,LAPIS) 
3570 GOTO 3400 

3580 LAP=1 

3590 CALL CHARCI12,LAP29) 
3400 CALL HCHAR(HY, HX, 113) 


UU ###АЦБМЕНТАТ ТОМ SCORE DEMO MM HOHER 


nennen 


ED PLIS CV OH o oe aen 


100 КЕМ FEIE 280 DATA ЕЕООЕЕЕЕООЕЕЕЕОО 

110 REM ж JEU DE MEMOIRE ж 290 DATA 0000ЕЕЕЕООЕЕЕЕОО 
КЕМ HR E AE зе эе эе эе HAN 300 DATA 2442815А3С5А8181 
RANDOMI ZE ; 310 DATA 4281423C3C428142 
КЕМ 3333: (0G OOOOOOO GE 320 DATA 4090884422110404 
REM * DEFINITIONS * 330 рата 0409112244884020 
КЕМ ж DES CARACTERES ж 340 DATA 0000FF8181FF0000 
БЕШ Жл куннин ARNE E 350 DATA 00FF8181FF000000 
БАТА 47?2244992244994 360 DATA 00183С66Е77Е0000 
БАТА 181818E7E7181818 370 DATA ЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕЕ 
БАТА 64СЗА5181845С344 зво DATA 55AA55AA55AA55AA 
DATA 8445221188444251 390 REM XQGxxX4xxxxxXxXxX£3x4axxxX 
DATA 1824429999422418 400 REM ж AFFICH. INTROD. ж 
DATA FF422418244281FF 410 REM ШЕКЕ ЕИ 
DATA C3C324181824C3C3 420 REM 
DATA 9924429999422499 
DATA 7EGIFFEFFEFEERAS 430, DIM DAMCé,6) ,0Е5‹18) „тасз,2», 
DATA FFFFOO0FFFFOOFFFF 440 1130 
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3410 CALL КЕУ< 5, ВЕТ ,ЕТа? 3660 HY=HY-1 
3620 ТЕ ЕТА-0 THEN 3480 3670 GOTO 3480 
3630 IF RET=88 THEN 3680 3680 IF НҮ-19 THEN 3480 
3640 IF RET<>67 THEN 3480 3690 HY=HY+1 
3550 ЇЕ НҮ-5 THEN 3480 3700 GOTO 3480 
COMMENTAIRES : Ligne 950 à 1150 : affichage des 
obstacles 

Ligne 100 à 120 : initialisation de Ligne 1160 à 1340 : sous programmes 
l'écran Ligne 1360 à 1440 : bonus affichage et 
Ligne 140 à 290 : redéfinition des calcul 
caractères graphiques Ligne 1450 à 1660 : vies en plus 
Ligne 310 à 490 : entrée des caractéres Ligne 1670 à 1770 : lapin en moins 
Ligne 500 à 610 : initialisation des Ligne 1780 à 1800 : fin de la partie 
couleurs Ligne 1890 à 2070 : musique si vous avez 
Ligne 710 à 830 : affichage des herbes gagné 
Ligne 840 à 930 : affichage des messages Ligne 2080 à 3700 : démo du jeu 

TI 99/4A 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


MEMORY 


Retrouvez dans un tableau les différentes formes 
de couleurs 
qui vont par paires mais apparaissent au hasard. 
Vous vous déplacez à l’aide des touches 
d'éditions et validez 
gráce à la touche «enter» 


ANE 
9 2 


NN 


450 J(2)=0 

460 JT-0 

470 JOUEUR=1 

480 SON=262 

490 RESTORE 

500 РОК Т-1 TO 18 
510 DES(T)=2 

520 МЕХТ Т 

530 CALL CLEAR 

540 D$="1824442999422418" 
550 CALL CHAR(32,D#) 
540 CALL COLOR(1I,1,8) 
570 CALL SCREEN(2) 


580 FÜR Т5136 TO 153 

590 READ A$ 

600 CALL CHAR(T,A$) 

410 NEXT Т 

620 READ A$ 

630 CALL CHAR(C112,6$) 

640 READ АФ 

650 CALL CHAR(120 ,A#) 

660 READ A$ 

570 CALL снакс104,85) 

680 вото 810 

690 REM 3J341Xx2XXXX3xXxx* 
700 XL-10 

710 YL-10 

720 A$-"x«MEMORY*x" 

730 возив 890 

740 вее "Рак" 

750 GOSUB 870 

760 A$="CLAUDE SABLATOU" 
770 GOSUB 820 

780 FOR CO-1 TO 16 

770 GOSUB 830 

800 МЕХТ СО 

810 КЕМ 

820 GOTO 980 

830 REM 

840 FOR C-2 TO ? 

850 CALL COLOR(C,CO,2) 
860 NEXT C 

870 RETURN 

880 REM 33xXXXXXXX 
890 REM * AFFICHAGE No.1* 
900 REM XX«XXXXXxXX3xXXXXX 
910 FOR T=i TO LEN(A#) 
920 б-А5С(5Еб%(А%,Т,122 
930 CALL HCHAR(CYL ,XL*T ,6» 
940 CALL SOUND(S0,440,0» 
950 NEXT T 

760 YL-YL*1 

970 RETURN 

980 REM 

990 REM «xdoddxXxx** 
1000 REM ж DEBUT DU JEU ж 
1010 REM x*«x«XxXxxxX 
1020 REM 

1030 FL-0 

1040 JOUEUR-1 

1050 CALL CLEAR 


1060 


CALL CHAR(32, "AASSAASSAAS 


ЗӨӨ55") 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1140 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1270 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1320 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 


CALL SCREEN(2) 

CALL COLOR(I, 1,5) 
CALL COLOR(12,16,16) 
CALL COLOR(11,2,16) 
CALL COLOR(10,5,2) 
CALL COLOR(14,16,2) 
CALL COLOR(15,16,2) 
CALL COLOR(16,16,2) 
FOR X=1 TO 6 

FOR Ү=1 TO 6 

IF Y<>5 THEN 1190 

IF X=é THEN 1270 

B= INT CRND%1 8) +1 

IF DES(B)=0 THEN 1190 
DAMCX ОВ 
DESCB)-DESCB)-1 

NEXT Y 

NEXT X 

REM 

REM 

FOR T=1 TO 18 

IF DES(T)-0 THEN 1350 
FOR Ү-5 TO 6 

IF DAM(é,Y)<>0 THEN 1340 
рАМ‹ 6 , От 
DES(T)=DES(T)-1 

GOTO 1280 

NEXT Y 

NEXT X 

XL=8 

YL=3 

A$="DAMIER DU MEMORY" 
CO=12 

GOSUB 840 

GOSUB 890 

VA=1 20 

FOR X=1 TO 6 

FOR Y=1 TO 6 

GOSUB 2150 

NEXT Y 

NEXT X 

х-1 

Y=1 

YM=7 

ХМ=11 

возив 2220 

GOSUB 2660 

REM 

REM 

REM 3 

CALL KEY(3,V,ST) 
CALL SOUND(1, SON, 15) 
IF SON=262 THEN 1620 
SON=262 

GOTO 1630 

50м-294 

ТЕ 5Т-0 ТНЕМ 1570 

IF U-13 THEN 1840 

IF U«8 THEN 1570 


1660 
1670 
740 

1680 
1620 
1200 
1710 
1220 
1230 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


IF V>11 THEN 1570 
ON у-7? вото 1480,1700,1720,1 


хех-1 

GOTO 1750 

X=X+1 

GOTO 1750 

Y=Y+1 

GOTO 1750 

Y=Y-1 

IF X»-1 THEN 1770 
хе 

ДЕ Х<-6 THEN 1790 
X=6 

ТЕ Y>=1 THEN 1810 
Y=1 

IF Y<=é THEN 1830 
Үе6 

GOSUB 2220 

GOTO 1570 

REM 

REM 

REM 

CALL SOUND(500.1200,0,440,0, 


2250 X1=(X-1)*2+11 
2240 CALL HCHARCYM,XM, 120) 
2270 CALL HCHAR(Y1,X1,112) 
2280 YM=Y1 

2290 хмех1 

2300 RETURN 

2310 REM 

2320 REM 

2330 REM 

2340 DAMCTAC2,1) ,TACS, 12570 
2350 DAM(TA(2,2) ,T6(3,2)) 20 
2360 CALL SOUND(500,110,0,220,0,3 
30,0) 

2370 YL=22 5 

2380 XL=24 

2390 ЇЕ JOUEUR=1 THEN 2410 
2400 XL=6 

2410 JCJOUEUR)=J(JOUEUR) +1 
2420 PT#=STRS(J(JOUEUR) > 
2430 FOR Tel TO LEN(PT$) 
2440 A-ASC(EGSCPTS,T, 12) 
2450 CALL HCHAR(CYL,XL*T , à? 
2440 NEXT T 

2470 JT=JT+1 


220,0) 2480 ТЕ JT>=18 THEN 2820 
1890 FL=FL+1 2490 RETURN 
1700 VA-ZDAMOC Y) +135 2500 REM 
1910 IF УА<2135 THEN 1940 2510 REM 
1920 VA=0 2520 REM 
1930 GOTO 1950 2530 VA=120 
1940 GOSUB 2150 2540 Ххех 
1950 TA(I,FL)=VA 2550 YY=Y 
1960 TA(2,FL)=X 2560 FOR T-1 TO 2 
1970 TA(3,FL)=Y 2570 X=TA(2,T) 
1980 IF FL<=1 THEN 1570 2580 Y=TA(3,T) 
1990 FL=0 2590 IF DAM(X,Y)=0 THEN 2610 
2000 IF ТАС1,19 тас1,2) ТНЕМ 2050 2600 GOSUB 2150 
2010 IF ТА(2,12<>ТА(2,22ТНЕМ 2030 2610 МЕХТ Т 
2020 IF TA(3,1)=TA(3,2)THEN 2050 2620 X=XX 
2030 GOSUB 2320 2630 Y=YY 
2040 GOTO 2080 2640 RETURN 
2050 FOR Т-1 TO 50 2650 REM 
2060 NEXT T 2660 REM 
2070 GOSUB 2510 2670 REM 
2080 IF JOUEUR=1 THEN 2110 2680 YL=21 
2090 JOUEUR=1 2690 XL=3 
2100 GOTO 2120 2700 A$=" GAUCHE" 
2110 JOUEUR=2 2710 IF JOUEUR-2 THEN 2740 
2120 GOSUB 2660 2720 A$="DROITE" 
2130 GOTO 1570 2730 XL-20 
2140 REM 2740 GOSUB 890 
2150 REM 2750 YL-21 
2160 REM 2760 XL-20 
2170 Хі-(Х-12%2%11 2770 Аф=" 
2180 Үі-(Ү-12ж2%7 2780 IF JOUEUR-2 THEN 2800 
2190 CALL HCHAR(Y1,X1,UA) 2790 XL=3 
2200 RETURN 2800 GOSUB 890 
2210 REM 2810 RETURN 
2220 REM 2820 REM 
2230 REM 2830 REM 
| 2240 Yi-Cv-15 «2*7 2840 REM 
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PRIHT AT # 
РЕІНТ НТ 
г РЕЇМТ AT 
3 PRIHT АТ 
HEST Ж 
FOR #=8 TU 19 
PAUSE ТА 
A РЕЇНТ НТ 
Е AT 
AT 
AT 


2PLOHGEOH: " 


d GESTION DU PLONGEUR 
REM 

PRIHT AT &,12;"W" 
т.125" 


В РЕІНТ Н 
РЕТНТ Н 
PRIHT Р 
РЕТНТ 
РЕТНТ 


THEN GO 
4 THEM GO 


JCORE T" , R$ 


INPUT ща [ 
THEN GO TO 11 


IF A$="0" 
STOF 
PRINT AT 


‚29: "ВТЕ" 


LS E PRIHT AT x, Y; I" 


й бо то 
COMMENTAIRES : Ligne 6050 à 4900 : sous routine 
d'affichage du plongeoire 
Ligne 1 à 900 : initialisation des Ligne 9000 à 9700 : affichage de saut 
variables Ligne 9750 à 9910 : calcul et fin de Та 
Ligne 960 à 6030 : entrée des paramètres partie 
ZX 81 


PIEGE 


Évitez les Ж et attrapez les 5 
si vous ne voulez pas mourir dans des délais trop brefs... 
Pour vous déplacer, utilisez les touches 
5 pour aller à gauche, 8 pour aller à droite. 


1 LET 0=3: LET asp: LET IN-1: GO SUB 4000: PAUSE 1888: со SUE гава 


2 CLS 
18 PRINT AT й,й;" 


TT 


PRINT AT 15,9 
1828 IF ІНКЕҮФ="8" THEN IF #4429 THEN LET s-s*1: PRINT AT 15, 
1848 IF 095 THEM PRINT AT Н.В)" ";RT R*1,B;"X": LET A=A+1: IF 


19;B;". "+ БЕТ IN=1 
1845 IF 095 THEN IF B=Y THEN IF R*1-15 THEN PAUSE 108: PAUSE 190: CLS : PRINT RT 


19,14: "PERDU": PAUSE 100: PAUSE 199: GO TO 1 D 


[ asd 
19 THEM PRINT RT 


8 


k E ра ЩЕ 2 ы % ш аве ышкын 


1047 IF 0<5 THEN IF B=Y THEN IF A+1=15 THEN PAUSE 108: PAUSE 108: CLS : PRINT АТ 
10,14; "GAGNE": PAUSE 199: GO TO 1 

1050 IF 0<5 THEN PRINT AT R,B;" "AT h.:,B;"$": LET R-R*1: IF A=19 THEN PRINT AT 
19,B;" "+ LET IN=1 

1199 IF IN-1 THEN GO SUB 2090 

1999 GO TO 1000 


Tt 


TEET: 


ТТ a е ыык а-ы. ыды ы ыр E Ра ЕИО 


£010 LET ІМ=0: LET A=1: LET B=" ` CRNDX31): LET O=INT СЕМПЖ10) 
3999 RETURN 


4000 REM 777777777777777777771(/717717777777717777 
7777 PRESENTATION TT 
77777777777777777777777777777777777777? 
4018 CLS 
4020 FOR Хей TO 21: PRINT RT Х,00; HET X 
4100 PRINT RT 5,4; "РІЕСЕ : "АТ 7,5;"JEU D'ACTION POUR 2Х81 16K" 
4118 PRINT AT 10,4;"COMMRNDES НТ 12,5;"DROITE 8") АТ 14,5;"GRUCHE 8" 
4120 PRINT AT 16,5; "ЕУІТЕК Ж"ЈАТ 18,5; "RTTRRPER $" А 
4200 RETURN 
COMMENTAIRES : Ligne 10 à 20 : affichage du décor 
Ligne 1010 à 1020 : test du clavier 
Ce programme a été écrit pour Spectrum, Ligne 1040 à 1100 : routine principale 
il faut donc pour le 2X 81, n'écrire du jeu 
qu'une instruction par ligne. Ligne 2000 à 3999 : tirage aléatoire des 
obstacles 
Ligne 1 : initialisation de l^écran Ligne 4010 à 4200 : présentation du jeu 
ZX 81 


TIR A L'ARC 


Robin des bois moderne, touchez dix fois de suite 
une cible qui se déplace de haut en bas 
sur la droite de votre écran. 
Pour tirer, il suffit de presser la touche T, 
dés que la cible est devant vous. 


о сё 118 PRINT " 0 т" 

3 LET бей 128 PRINT " Desh" 

5 CLS 138 PRINT " FH í" 

i med. EO 149 PRINT " gu er 

5 #5 158 LET X=IHT CR ) 
i88 PRINT RT 18,085" г" 246 FOR F=% ТП гора: 


ZX 81 


METEORES 


Poursuivez sans trève un météorite. 
Celui qui «tiendra» le plus longtemps aura gagné... 
Pour vous déplacer, utilisez les touches : 
5 pour aller à gauche, | pour aller vers le haut, 
7 pour aller vers le bas et 8 pour aller à droite. 


REM TILT 

REM INITIALISATION 

LET X54 

LET Аетава 

LET Y=4 

LET Вэй 

LET D=16 

КЕМ DECOR. 

FRIHT RT 17,0; "W awww—vrcs—0n 
FÜR сей TO 17 
КЕМ AFFICHAGE 
PRINT AT C,2?; 
PRINT: AT 21,9: "TEMPS => " 
NEXT C 
PRINT AT 2 
РЕІНТ AT 
PRINT AT i 
PRINT AT Ж л " 

LET Neit) 

IF Х=15 THEN LET X#=-4 

LET Үеүж1 

IF Y=23 THEN LET Y=-" 

PRINT HT XY "и" 

IF хар AND Y THEN БО ТО 694 

IF Хер-1 AND Y-B THEN GO TO 644 

PRINT AT D,B;" " 

REM TEST CLAVIER 

IF INKEYS="8" AND B425 THEM LET B-B*1 
IF IHKEY AHD р<16 THEM LET 05041 


IF 1НКЕТ AHD E»1 THEN LET E=B-1 
IF IHKEYS-"?" AND 021 THEN LET D-D-1 
LET A=A-1 

IF A=Ø THEN GO TO 699 

GU то 105 


PRINT AT 21,9; "ЕЕСУРЕКАТТОН DU VAISSAUX ЕН" 
PRINT AT Z1,25;1888-H 
FOR 2=й TO 154 


617 NEXT Z 

624 IF IHKEY#="" THEN CO ТО 624 

ҮЙЙ PRINT AT 21,0; "AFPUYEZ SUR UNE TOUCHE + 
718 ЕПК 2=й TU 13H 

720 HEXT Z 

T38 IF IHKEY$="" THEN 00 TO 730 

вий RUH 


COMMENTAIRES : 


Ligne 5 à 40 : initialisation des Ligne 117 à 127 : boucle principale 
variables Ligne 128 à 500 : test du clavier 


Ligne 60 à 116 : affichage de l'écran Ligne 600 à 800 : fin de Та partie 
ZX 81 


VIADUC EN FOLIE 


Arriverez-vous à faire traverser la riviére à toutes 
les jeunes filles qui se présentent? 
Pour placer un pont sous leurs pas, 
utilisez les touches A pour monter, Z pour descendre. 


=й 
40 REM DECORS 
ҮЙ PRINT HT 21.0; "W a 
100 FOR x-4 ТО га 
118 PRINT AT «к.й; "в m" 
128 NEXT M 
125 PRINT HT 4.8; " ЕНЕР" 
130 PRINT HT 13,0; "BN 
132 PRINT НТ À 
135 PRINT HT 17.8; " iw wa—— i 
154 PRINT НТ 24,1; "SCORE 1155 m" 
155 FOR x-8 ТО 16 STEP 4 
168 РБІМТ HT 5, "Waman [eic "` 
170 NEXT Ж 
гай РЕТНТ AT H.14;" H 
243 REM TEST DU CLAYIER 
245 IF IHMKEYS-"H" АНС R28 THEM LET Н-Н-4 
207 IF ІМКЕҮФ="2" AND RK16 THEM LET A=A+4 


248 КЕМ AFFICHAGE 

219 PRINT AT 19,C;" D " 

211 PRINT RT 14,B;" 0" 

212 PRINT HT 6,D;" D" 

215 PRINT RT 24,8;5 

217 PRINT AT 20,22;T 

219 PRINT AT А, 14; "ШШШ" 

250 REM TEST 

зай IF T-3 THEN GU ТО 1584 

314 LET CeC+9, 2+СКНОЖБИВИЙ à 

312 LET D-D-CH.2-*CRNDXS/20822 

312 LET В=Е-< МОЖ 208 ) 

320 IF C»25 THEM PRINT RT 1й,С;" ш 
322 IF В<2 THEN PRINT HT 14,Б;" i 
323 IF C<3 THEN PRINT НТ 6.09" И 
324 IF D<3 THEM LET D-26 

325 IF C»23 THEM (ЕТ C-2 

358 IF Б<2 THEN LET В=26 


488 IF AND Е<17 AND A<>16 THEM LET T=T+1 

405 IF 3 AND B<17 AND Н<216 THEN PRINT RT 14,E;" d 
407 IF AND В<17 AND Н<216 THEM LET B=26 

418 IF DND С<17 AND Н<212 THEM LET T-T*1 

415 IF AND С<17 AND Н<212 THEM PRINT RT 10.05" y 
428 IF AND C<17 AND RK»12 THEM LET Саа 

500 IF AND 0417 AND Я<>8 THEM LET T=T+1 

510 IF ANC D&l? AND Я<>8 THEN PRINT НТ 6,D;" 2 


заар DND 0<17 AND Н<28 THEM LET 0526 
Sua LET S Ч 

1000 GU TO 200 

1588 РОК хай ТО 150 

1918 NEXT X 

1520 PRINT HT @,6;"AFPUYEZ SUR UNE TOUCHE" 
1530 IF ІМКЕҮФ="" THEN GO ТО 1530 


1540 RUN 
COMMENTAIRES : Ligne 203 à 207 : test du clavier 
Ligne 208 à 219 : affichage du décor 
Ligne 10 à 30 : initialisation des Ligne 300 à 520 : déplacements des 
variables jeunes filles et test de collision 
Ligne 40 à 200 : tracé du décor Ligne 1000 à 1540 : fin de la partie 
ZX 81 


BASQUET 


Redécouvrez les joies du basket... 
sur votre écran. 
Les Harlem Globe Trotters 
ne jouent pas mieux que votre ordinateur. 
Mais vous, serez-vous à la hauteur? 


Ма... 
FOUR 2481 FOR Еза ТО 21 
x IT HT Р, 12; "ЕАБКЕТ" 
56 PAUSE 4 


NEXT Е 
ЕНЗКЕТ га РОК F-B TO 21 
PRINT AT F,12;" 
PAUSE 4 
FRESENTATION NEXT F 


КЕМ 
82 КЕМ INSTRUCTIONS 
cz FEU CREER 
85 PRINT НТ 10,4; "APPUYEZ SUR UNE TOUCHE " 
86 PRINT AT 11,7; "JUSQU A ATTEINDRE" 
87 PRINT AT 12,5;"LR PUISSANCE DESIREE" 
89 PAUSE 300 


М 
32 КЕМ INITIALISATION 
М 


185 СЕТ рей 
118 GO SUB 7080: GO SUB 8088: GO TO 9969 
7998 REM X X X X X X X X X X X ) 


таза REM AFFICHAGE DU PANIER 
d d 


7060 REM X X X X X X X X X K XC) 
7070 FÜR F=5 TO 8 
7080 PRINT AT Е, 24) 
7090 NEXT F 

7100 PRINT АТ 9,24; "hme" 
7118 FOR F=19 TO га 

7129 PRINT HT F,27; "m" 
7139 NEXT Е 

7150 PRINT AT 7,22: 
7169 PRINT HT 8,22) "km" 

7200 PRINT AT 21,0; "Жашара r 


7230 FÜR Fel TO 20 
7240 PRINT AT F0; 
7250 PRINT AT Е, 31) 
7260 NEXT Е 

тата PRINT AT 0,0; uwa T 
EN 


7300 RETURN 

8000 REM с X э XC ICIC X X X X X 
8010 REM 

8020 REM AFFICHAGE JOUEUR 

8934 REM 

8040 REM 

8050 REM CX X X X X X 
8060 PRINT A 
8070 PRINT 
виза PRINT 
8090 PRINT 
8100 PRINT 
8110 PRINT 
8128 PRINT 
8130 PRINT 
8148 PRINT 28,4; 

9880 REM € X X X X DC DC XC XC XC X XC 
2610 REM 


X XX X X 


зага REM 

заза КЕМ LRHCER DE LR BRLLE 
9040 КЕМ 

3050 REM 

9060 REM € X X X X X X X X X X x 
9878 PRINT RT 1,1;"PUISSHNCE 8" 
9188 IF INKEY$-"" THEN GO ТО 9100 
9119 IF INKEY$<>"" THEN GO TO 9120 
9115 60 TO 9150 

9120 LET D-D*1«4 

9130 PRINT AT 1,110 

9148 60 TO 9110 

9158 LET D=INT D 

9198 LET K-D 

9200 IF 0298 THEN GO TO 9100 

9258 LET G-8 

9380 FOR F=13 TO 13-0 STEP -1 
9358 PRINT RT Ғ,б; 


9370 PAUSE 3 

9388 IF F=2 THEN GO ТО 9890 
9400 LET G=G+1 

9450 NEXT Е 

9460 PRINT RT F+1,G-1;" 
9588 FOR 051 TO З 
9585 PRUSE 3 

9510 PRINT AT Ғ,б; 
9515 PRINT AT F,G-1; 
9529 (ЕТ G=G+1 

9530 HEXT D 

9568 PRINT AT F,G-1;" " 
9600 FOR Det TO 21 
9618 PRINT AT D,G;"N" 
9615 PRINT RT D-1,G-1;" 
9628 PRUSE 3 

3639 LET G-G*1 

9640 IF G-24 THEN 60 TO 9700 
9670 NEXT D 


9680 КЕМ REENEN 
9681 КЕМ ANALYSE ET RESULTAT 
9682 КЕП Wawa 
9683 КЕМ 


9794 IF K»? THEN GO TO 9900 

9800 IF F<3 THEN PRINT AT 3,15 "TROP HAUT" 
9818 IF F>3 THEN PRINT AT 3,1;"TRÜF BAS" 
9815 FOR F=1 ТО 199 

9816 NEXT Е 

звга GO TO 194 

9898 PRINT RT F-1,G*l;" " 

9895 GO TO S888 

9910 IF K»9 THEN GO TD 5544 

9350 PRINT АТ 3,1;"BOH ТІК!" 

9968 LET 5=5+1 

9970 PRINT НТ 4,1; "5СОВЕ:"; S 

9975 FOR Р=1 TO 264 

9976 МЕХТ Е 

9980 GO То 199 


COMMENTAIRES : 


Ligne 9 à 80 : présentation du jeu 
Ligne 81 à 90 : instruction du jeu 
Ligne 91 à 110 : initialisation du jeu 


Ligne 7000 à 7300 : sous programme 
d’affichage du panier 

Ligne 8000 à 8140 : affichage du joueur 
Ligne 9000 à 9670 : lancer de la balle 
Ligne 9680 à 9980 : analyse et résultat 


ZX 81 


ZX 600 


Aidez un sportif asthmatique 


à parcourir les 600 métres fatidiques d'une course 
d'endurance. 

Respectez le temps minimum imparti à la course, 
mais ne tuez pas votre «poulain» par des efforts 
trop intensifs... 

6 - ralentir, 7 = accélérer. 


FEM 
КЕМ ——— 
REM PROGRAMME МНЕРТНОН МАН 

PACE RDS 


КЕМ 

REM 

REM 

REM 

REM PRESENTATION 

REM 
1060 PRINT НТ 10,7; "MARATHON-MAN" 
118 PRINT HT ARMS СЕ JEU DE COURSE Coma МО" 
126 РЕІМТ AT 'EZ SUR 8 POUR ACCELERER" 
130 PRIHT AT 2 SUR 5 POUR RALENTIR" 
144 РЕІМТ НТ АТТЕНТТОН A VOTRE ENERGIE!" 
154 РКІМТ AT nis СЕ 234 SECONDES" 


SUR | 
REN AFFICHAGE DE 1” ЕСЕНН 
ЕЕМ 

я LET Мей 
PRINT AT 3 
B PRIHT HT 
РЕЇНТ НТ 
РЕІМТ НТ 
РЕІМТ AT 
Эй PRINT НТ 
5g PRINT HT 
па РЕТМТ HT 
0 PRINT HT 
РЕІНТ AT 
FRIHT HT 28, 1 8: "ENERGIE" 

КЕН E 
& REM  IHMITIHLISHTIUHM DES 

й REM VARIABLES 


1830 REM W 
1944 LET F=ü 

1918 LET М 
1920 (ЕТ Т 
1938 LET Е-1508 
2008 LET C= 
2881 LET P 
2002 REM 
2943 REM JEU 

гай4 КЕМ 

2005 IF С=З THEN GO TO 5288 

2006 PRINT AT 1,8:"R VOS MARQUES" 
2019 со SUE Sama 

2815 IF P=1 THEN GO ТО 2001 

2020 PRINT AT 1,0; "PRET L 
газа GO SUB Sana 

2035 IF Р=1 THEN GO ТО 2001 

2448 PRINT RT 1,0; "РАЕТЕ2" 

2300 IF INKEY&-"S" THEN СО SUE 300A 
2400 IF INKEY$="5" THEN LET F-F-1 
2485 IF W-1 THEM GO SUB 98688 

2407 IF М-й THEN GO SUB 9100 

2418 LET T=T+1/2 

2428 IF F>1 THEM LET E-E-1 

2430 IF F>19 THEM LET Е-Е-2 

2440 IF F230@ THEN LET Е=Е-7 

2445 IF Е<й THEN GQ TO 3200 

2458 IF F»1 THEN LET М-М%1/8 

2468 IF F»18 THEN LET М=М+1 

вата IF F»38 THEN LET М=М+2 

2480 IF Manon THEN GO TO 260A 

2499 PRINT AT 17,18:Т 

2500 PRINT RT 13,1й;Е 

2518 PRINT RT 18.18;M 

2520 PRINT HT 2й,10;Е 

газа PRINT HT 20,185" и 

25480 PRINT HT 28,18;E 

2800 GO TO 2388 

2999 STOF 

Sana REM 

5001 REM 5015 ROUTINE DE 

50803 REM 

5004 FOR хай ТО 158 

58018 IF IHKEY#<>"" THEN GO TO 5100 
9020 HEXT х 

заза RETURH 

5188 PRINT AT 2,0; "FAUX DEPART" 

5105 FOR G-B ТО 188 

5106 МЕЯТ G 

5107 PRINT AT 2,8;" Ч 

5109 PRINT НТ 1,8;" E 
5118 LET C=C+1 

5120 LET Р=1 

5130 RETURN 

52800 PRINT RT 3,0;"3 FAUX DEPARTS ELIMINE" 
Sela РОК б-й То 400 

5229 MEXT G 

5230 GO TO 1 


8010 LET F=F+1 
8924 RETURN 
9000 IF Ғ-й THEM RETURN 


39945 LET Мей 

3818 PRINT AT 9,й;" 
3020 PRINT RT 16,B;" RAS TN ER 
3934 КЕТПЕН 

9144 IF F=@ THEN RETURH 

2118 LET М=1 

9126 PRINT AT 156,Ййу" иНииНИЕВ НИЙ НЗ БЕН Б НИН  . ННН.! 
9125 РРІНТ AT 9,5; "пипивявизовевавиваввовия 
9150 КЕТПЕН 

3154 REM 

9151 REM FIH DU JEU 

9152 КЕМ шини 

9200 PRIHT НТ 8, й; "У015 ETES EPUISE PERDU" 
язай FOR хай То 300 

9358 MEAT х 

S368 GO TO 9800 

9680 PRINT AT S,8;"BRRVO VOUS AYEZ GAGNE" 
9700 FÜR хай TO 400 

9750 HEAT ЖЯ 


эвий CLS 
ззай GO TO 1 

COMMENTAIRES : Ligne 2200 à 2800 : boucle principale 
Ligne 40 à 150 : présentation du jeu Ligne 5000 à 9130 : sous programme de 
Ligne 410 à 1030 : affichage de l'écran jeu 
Ligne 1800 à 2001 : initialisation des Ligne 9150 à 9900 : screen de fin de 
variables partie 

ZX 8T 


JET FORCE 


Vous devez impérativement décoller de votre porte-avions. 
Et, comme d'habitude, 
les conditions météo sont déplorables. 
Indiquez soigneusement la puissance de l'avion 
et la poussée de la catapulte 
si vous ne voulez pas vous crasher... 


RE далада 32 PAUSE 364 
FEM 2881 95 CLS 


ДЕП Maa a a a a a a a a a a aa a a a a a a a a 97 REM "w'aan a a n n a n a a a aa n a a a 
° iei AN 
Ба РЕМ PORTE RVION ёс КЕМ IHITIALISATION 
РЕМ SE 
TB РЕМ aa 1йй- LET S= 
° РВЕЗЕНТАТТОН зав GO SUB 2008 
РЕМ win AS A, 918 со SUE 4000 


PRIHT AT 18,18; "PORTE AYIOH" REM "aa'aa n aa a a aa a a a a a 


1993 КЕМ 

1004 REM ENTREE DES ПОННЕЕЗ 
1005 REM 

1006 REM "waana aaa tta 
1009 LET У-іжІНТ (ЕМОЖ1Я2 

1919 PRINT AT 2.4; " VEHT:";V 

1934 INPUT "RERCTEUR «1-152",К 
1049 PRINT AT 3.4; "RERCTEUR:";R 
таза INPUT "CATAPULTE (1-92".С 
1964 PRINT AT 4,4; "САТАРШ-ТЕ:" ; C 
1974 PRINT AT 6,4; "ЗСОКЕ:"; S 
1080 GO SUB свйй 

2999 INPUT "ENCORE?" A$ 

2100 IF A$="0" THEN GO TO 1 

2999 STOP 

Sapa REM ПРЕ 
3414 REM AFFICHAGE CADRE 

3920 REM 1111111111111111111 
3030 REM 
заза PRINT AT й,й; " wsw——ss И 
3969 FOR el TO 8 

3070 PRINT AT х.й; "W" 

3080 PRINT AT #,31; 
3090 NEXT х 

3198 PRINT НТ 9,0; "meme 
3114 RETURN 

48088 REM 

4010 REM PORTE RVION 

4015 EEN REENEN 

4019 PRINT AT 21,0; "айнар" "а" m тұ Sé ын "s q wé WEI" 
4020 PRINT НТ 20.8; "e da аз" "wa" sa Héi ху? V "Ч wei RT 
4030 PRINT AT 19.4," ST ' 
4й4й PRINT AT 18,4; "eneen 
4050 PRINT НТ 17,3; " umma ' 
4060 PRINT AT 16,26; "dde" 

4878 PRINT AT 15,21; "di" 

4080 PRINT AT 15,22; "а" 

4900 RETURH 

8060 КЕМ ES 

8929 REM CALCUL 

8934 REM 

8100 IF Е< >у+4 THEN GO TO S600 

8119 IF С<>Ұ-2 THEM GO TO 8600 

8129 PRINT AT 10,4) "GAGNE" 

8130 ШІ SUB 900G 

8148 LET 5-5%1 

8154 RETURH 

Sega PRINT AT 18,4; "PERDU" 

8619 LET P-H 

8630 GO SUB 9264 

9640 GO SUB 9508 

8650 RETURH 

9946 FOR Y-18 TO A STEP -1 

9010 PRINT НТ 16,7; "4" 

9020 MEXT Y 

S30 RETURN 

9588 FOR #=17 TO га 

9518 PRINT АТ 5,8; "ы" 

9520 PRINT RT A-1,8;" " 

9549 HEAT # 


9538 КЕТПЕН 
60 


COMMENTAIRES : Ligne 4000 à 4010 : Affichage des 


Ligne 10 à 80 : Initialisation des avions, 
variables numériques, Ligne 4020 à 4030 : Affichage des avions 
Ligne 90 à 111 : Initialisation des ennemis. 
variables alphanumériques. Ligne 4100 à 4101 : Fait avancer les 
Ligne 1000 à 1040 : Affichage du score. avions. 
Ligne 2000 à 2010 : Initialisation des Ligne 4102 : Test clavier ( controle de 
coordonnées des avions ennemis. la hauteur ). 

THOMSON MO 5 


TRON 


Inspiré de la célèbre course de motos nucléaires 
du film «Tron», ce jeu ne vous laisse pas une seconde de répit. 
Vous devez en effet rouler le plus 
longtemps possible 
sans toucher une des traces que vous laissez derrière vous. 
Z = gauche, E = droite, W = haut, X = bas. 


1 CLS:SCREENG, 4,4 
2 REM SPRITES ET MICRO-JEUX 1985 


AIRE DU FILM ’TROH’ ." 


5 PRINT:PRINT:PRIMT"POUR VOUS DIRIGER,UTILISEZ 2,Е ET WX" 

6 PRINT :PRINT: PRINT: PRINT: PRINT :ATTRB1; 1: РЕТНТ "ВОМНЕ CHANCE 111" 
7 ATTREG,9 

8 5080651 

9 CLS :SCREENS,9,9 

10 КЕМ DESSIME LE CADRE 

11 ІІМЕС?,02-С312,02,4:11МЕ-<312,1912,6:11МЕ-С7,191),1:1ІМЕ-(7,09,9 
12 КЕМ DESSINE LE CARRE 

13 БОХС152,952-(167,1057,5 

14 КЕМ INITIALISATIOHS 

15 Wz156:'Tz276:Rz1:B-1 

16 REM TEST LES COLLISIONS 

17 C=POINTCX, Y): IFC>=QTHENSS 

18 REM AFFICHAGE DU POINT 

19 PSETÉ 4, 15,2 

29 REM AUGMENTE LE SCORE 

21 D=D+1 

22 КЕМ TOUS LES VINGTS POINTS DESSINE UN CARRE 

23 ІР0/20=1МТ‹ 0/20 )THEH43 


3 PRINT'CE JEU EST INSPIRE DE LA CELEBRE COURSE": PRINT :PRINT:PRINT"DE МОТО NUCLE 


4 PRIMT:FRINT:PRINT"VOUS DEVEZ ROULER LE PLUS LONGTEMPS":PRINT:PRINT:PRIMT"POSSI 
PRESS TOUCHER UN DES MURS QUE":PRINT:PRINT:PRIMT"VOTRE МОТО LAISSE DERRIERE E 


61 


5 


1 
52 RETURN 


COMMENTAIRES : 

Ligne 1 à 6 : présentation du jeu 

Ligne 11 : dessin du cadre du jeu 

Ligne 13 : dessin d'un carré à l'écran 
Ligne 15 : initialisations des variables 
du jeu 

Ligne 17 : test des collisions entre 
votre motos et tous les autres éléments 


REM CRLCULE LES COORDONHEES DU PROCHRIN POINT 
Neid: УЕУ+В 

REM TEST LE CLAVIER 
НФ-ІМКЕҮФ%:ІРНФ-""ТНЕМ17 
ІЕНФ-"Е"ТНЕМЯ-1:В--1:60Т017 

1FA$= "#4" THENA=1 :GOTO17 
IFRS-"MW"THENR--1 1:00Т017 
ІЕНФ-"2"ТНЕМН--1:Б--1:007017 

REM BOUCLE LE JEU 4 
507017 

REM SON 

FLAY"A10200MIREMIS1D0" 

REM SANS COMMENTAIRE 

CLS : LOCATE9, 12, 8: PRINT"PERDU, VOUS AYEZ" 
FRINT:PRIHT:PRINT"UHE AUTRE PARTIE 7" 
GOSUB51 

1FA%="N"THENCLS : END 

IFRS-"O"THENRUN 

GOTO39 

De INTCRND( 1 245 2: IFü€ >2THEN25 
нетните нос 1 2237 28848 
051МТСЕМОС 1 2ж222Ж848 

Мет нтс внос 128162 

BOCH, DC HA, 0+7 >, M 

PLAY"A10200" 

507025 

REM ATTEND UN CARACTERE ET RANGE LE DANS R$ 
RSzINPUTSCI) 


"POIHTS" 


Ligne 23 : tous les vingts points, un 
nouveau carré se trace à l'écran 
Ligne 25 : calcul les coordonnées 
nouvelles de la moto 

Ligne 27 à 31 
déplacements de la moto 
Ligne 33 : suite du jeu 
Ligne 35 à 41 


clavier pour les 


et fin du jeu en 


Ligne 19 : affichage d'un point quand la cas de perte 

moto avance Ligne 43 à 49 : tracé aléatoire des 

Ligne 21 : augmente le score petits carrés à l'écran 
THOMSON MO 5 


REBONDS EN FOLIE 


рицар une super-balle vers за cible 
grâce à des «barres de rebond». 


Pour placer une de ces dernières, il vous suffit de presser 


une touche du clavier. 


? 5СКЕЕМ2,0,0 

18 CLS 

29 CLEAR, ,1 

40 SC=250 

51 LOCATEO,0,0 

42 DEFGR$(O)=0,56,124,124,124,56,0,0 
73 BOX(7,0)-(312,199),4 


282 
293 
304 
315 
326 
337 


ІЕК=42ТНЕМ403 
1FK=47THEN370 
REM LA BALLE RENCONTRE UN CHR$(9?2) 


LOCATEA,B:PRINT" ";:А=А+Е:В=В+Е 


348 С=Ғ:Р=Е:Е=С:5070205 
EE аз ұла ады 359 REM LA BALLE RENCONTRE UN CHR#(47) 
106 ТЕ АФ-""ТНЕМ95 370 LOCATEA,B:PRINT" ";:A=A+E:B=B+F 
117 X=INT(RND(1)36)+2 eU ки шанада УАН 
128 Y=INT(RND(1)*22)+1 ij pipi š Е т 
139 LOCATEX,Y:PRINT"x"; 403 CLS:PRINT"SCORE : ";8C;" POINTS 
150 A=INTCRNDC IA X342 42 414 LOCATE1,20:PRINT"UOULEZ VOUS REJOUER 
161 BEINT(RND(C12*22)*1 цам 
172 Е=1:Е=0 425 A$=INKEYS : 1FA$=" "ТНЕМ425 
183 LOCATEA,B:PRINT" "; 436 IFA$-"O"THENRUN 
194 SCeSC-1 447 ІҒА%<2"М"ТНЕМ425 
205 A=A+E:B=B+F 458 END 
216 LOCATEA „В: PRINTGRS(O) ; 469 1ЕАФЕСЗОВАФЕ»З5ТНЕМ271 
227 A$=INKEY$ 480 IFB+F<20RB+F>22THEN271 
238 IFA$-""THEN271 491 LOCATEA*E,B*F :PRINTCHR$(47) ; :GOTO271 
249 IFA#="D"THEN4é® 502 IFA*E4SORA*E»35THEN271 
260 GOTO 502 513 IFB+F<(20RB+F>22THEN271 
271 K=SCREEN(A+E,B+F) 524 LOCATEA+E,B+F :PRINTCHR# (92) ; 16070271 
COMMENTAIRES : . Ligne 7 à 51 : Initialisation de 
position d'un point à l'écran. l'écran. 
цэн 137 М о оне МИА гра" : Redéfinition d’un caractère 
: graphique. 
au départ. Li 
дпе 73 à 84 : Tracé du bord de 
Ligne 326 à 392 : Tests de la balle, l^écran. 


Ligne 403 à 458 : Fin de Та partie. 


Ligne 117 à 128 : Tirage aléatoire des 


POPEYE 


Aidez Popeye à rattraper tous les objets 
qui tombent sur sa droite, sur sa gauche ou... 
sur sa téte. 
Le «sailor man» se déplace grâce aux touches «<» pour aller 
à droite et «>» pour aller à gauche. 


З LOCATEO,0,0 

14 5СКЕЕМ0,0,0 

25 CLEAR, „25 

36 DEFGR$(1223,7,5,7,7,3,1,15 
47 DEFGR$#(2)=192,224,160,224,224,192,128 
240 

58 DEFGR$(3)=31,63,55,55,31,31,15,7 

69 DEFGR$(4)7248,252,236,235,248,248,240 
224 

80 DEFGR$(5)=0,48,56,28,14,7,3,1 

91 DEFGR$(é)=120,252,180,252,120,48,254, 
255 

102 DEFGR$(7272255,127,63,31,31,31,7,7 
113 DEFGR$(8)=128,254,255,128,192,224,22 
4,224 

124 DEFGR#(9)=30,63,45,63,30,12,127,255 
135 DEFGR#(10)=0,12,28,56,112,224,192,12 
8 

146 БЕҒОЮФ(112-1,127,255,1,3,7,7,7 

157 DEFGR$(12)=255,254,252,248,248,248,2 
24,224 

148 DEFGRS(13)2224,255,127 ,123,119,63,63 


31 
179 DEFGR$(14)=7,255,126,94,110,124,124, 


248 

190 DEFGR$#(15)=31,14,79,230,255,251,187, 
255 

201 DEFGR$(16)=248,250,255,239,253,239,2 
55,255 

212 ОЕҒОКФ(17)-0,8,29,159,255,248,222,25 
5 


223 DEFGR$(18)=24,126,126,255,255,126,12 

6,24 

234 DEFGR#(19)=128,64,60,62,63,63,30,12 

245 ОЕРӨВФС207-96,232,212,46,95,63,30,12 

256 DEFGR#(21)=9,10,56,63,124,248,240,96 

267 РЬС2)-" "+GR$(1)+GR$(2)+" "+CHR$(8)+ 

CHR$(8)+CHR$ (В) +CHR$ (10) + 08 (3) +GR$ (4) 

278 P$(1)=GR$(5)+GR$(é)+" "+CHR%(8)+CHR% 

(8)+CHR$(10)+GR$(7)+GR$%(8) 

289 P$(3)=" “"+GR$(?)+GR%(10)+CHR$%(8)+CH 

R$(S) *CHRSCB) +СНЕФС10) 45885611) 4GRSCI2) 

300 CLS:SCREENO ,0 , 0 :LOCATEO ,0,0 

311 BOXF(71,535 -(231,1630 ,7 

322 ВОХЕС96,63)-0206,143),-7:80Х(94,61)- 
4»,-1 

ҮЭ 0: ОВЬ, 61LOCATEL8, 16:PRINTGRS 13) 588 

$22 


THOMSON MO &— — —  - N 


E ce doe. dac га ын шы 


344 LOCATE17,14:COLORS:PRINTP$(2) 
355 LOCATE10,17:COLOR1,7:PRINTGR$(CIS):LO 
CÂTEZ6,17:PRINTGRS(18) 
366 COLOR4,6:LOCATE12,17:FORR=1TOI 4: PRIN 
TGR$C17); :NEXT 
377 ОМ- IMX€20) :DIMY(20) : ОТМО« 20) :DIMD 
X(3,15) :DIMDY(3,15) 
388 FORR=1TO?:READDX ,DY:DX(1,R)=DX:DY(1, 
Ri=DY :NEXT : FORR=1 T08 : READDX, DY :DX(2,R)=D 
X:DY(2,R)=DY :NEXT : FORR=1T015:READDX, DY :D 
XC3,R)=DX:DYC3, R)=DY :NEXT 
1399 P=2:N0=0 : PO=1 
(410 A=RND:A$=INKEYS : I FA$=" "ТНЕМ410 
1421 0B=1:0¢1)=INT(RND*3)+1:X(08)=12:Y(0B 
<11-0(08) :PC 1071 
32 A$-INKEYS 
843 PLAY"LSTSA1DOSI" 
54 IFA$<)>","THEN 476 
65 IFP?ITHENP-P-1:LOCATE17,14:COLORS:PR 
NTP#(P) 
76 IFA*$<>"."THEN 498 
87 ТЕР<ЗТНЕМРЕР+ 1 :LOCATE17,14:COLORS:PR 
МТРФ(Р» 
-498 IFY(OB)=13 AND OCOB)-2THENS8ó 
509 X=X( 0B) :Y2Y (0B) :X € 0B)=X( 0B) +DX(0( 0B) 
EGY PRINT? T VLOCATEX COB) 1208) COLORA: 


EX,Y:PRINT" ":LOCATEXCOB) , YCOB) : COLOR4: 
RINTGRS (1 8+0(0B) ) :P(0B)=P(0B)+1 
1520 1FY(0B)=1S3THENSS3 
1531 1РҮСОВ»-16ТНЕМ586 
542 6070432 
1553 REM : 
564 ЇЕ O(OB)=P THEN LOCATEX(OB) ,Y(OB) : PR 
INT" ":SC-SC*1:LOCATE22,8:PRINTSC:PLAY"T 
SL3DOREMIFASOLA" : GOTO421 
‘575 вото4з2 
586 PLAY"A1TSLSDOREDOREDOREDOREDORESIMIR 
EDOLAMIL204D0MIRESOLAFA" 
597 LOCATEX(OB) ,YCOB) : PRINT" ":MI=MI+1 
408 LOCATE224MI , 10 : COLOR1 :PRINTGR$( 6) 
619 ТЕМІ=ЗТНЕМ№&41 
630 6070421 
841 LOCATE16, 10 : COLORI : PRINT"PERDU" 
452 &$-INKEY$:IFA$-""THEN452 
663 RUN 
474  LOCATEO,15:FORR-0TOS00:NEXT 
685 DATAI,0,1,0,1,1,0,1,1,1,0, 
0,1,1,0,1,0,1,0,1,1,1,1,1,1,0, 
13054 Ү0915071,1%1,0%13071,191% 
ооо ‚01 
COMMENTAIRES : 
Ligne 3 à 25 : Définition de l'écran. 
Ligne 36 à 289 : Redéfinition des 
caractères graphiques. 


1,0,1,0,1, 
1,0,1,1,0, 
1,0,1,0,1, 


300 а 346 
377 à 443 
432 4 487 
564 4 685 


Création des décors. 
Programme principal. 
Tests du clavier, 
Fin de la partie. 


— Ü: 
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2001 


Découvrez l'espace 2001 et ses pièges mortels. 
Une course de «stock space » 


dans laquelle tous les concurrents sont vos ennemi 


Pour vous déplacer, utilisez les touches du curseur droite 
et gauche. 


10 CONSOLE 0,24,,0:CLEAR 500,,4 

20 SCREEN 0, 0, O:CLS 

30 COLOR 1, 2 PRINT" «С» OPYRIGHT 1985 PAR 
CHAUMARTIN ET TILT "; 

40 ATTRB 1:PRINT" *METEOR* 5 
50 ATTRB 0:COLOR 4,6:PRINT:PRINT "SCORÉ- 
0 NOMBRE DE VAGUES= даа 

60 DEF FNR(X)=INT(RND(1)%X)+1 

70 CONSOLE 5,23:COLOR 4,3:CLS 

80 DEF GR$(0)=7,25,84,92,128,135,72,112 
90 DEF 088(1)#224,152,68,58,1,225,18,12 
100 DEF 0К%(2)-124,129,128,64,54,5,2,1 
110 DEF GR$#(3)=126,129,1,2,28,160,64,128 
120 I$-CHR$(128)*CHR$(129) 

130 уфЕСНЕ «1300 +СНЕФС 131) 

140 VX=19:VY=5:SC=0 :№1=90:№=1 

150 A$=INKEY$ : IFA$ <>" "THENA-ASC(A$) :UX=U 
X+C(A=B)-(A=9) ) #2 

160 IF SCREEN(VX,VY)<>32 ОК SCREEN(UX*1, 
VY)<>32 THEN SC=SC-50 :PLAY"T102D0RE":1F 
8040 THEN GOTO 260 


COMMENTAIRES : 
Ligne 10 à 20 : 
l'écran. 

Ligne 30 à 70 : Présentation de l'écran. 
Ligne 80 à 130 : Redéfinition des 


Initialisation de 


THOMSON MO 5 


170 SC-SC*10 
180 LOCATE VX,UY,O:COLOR 5,3:PRINT МФ; 
190 LOCATE 6,3:COLOR 4,6:PRINT USING"£££ 
££";SC:LOCATE 34,3:PRINT USING"£££££" NV 
200 АФ-"":ҒОК 150 TO 39 

210 IF FNR(100)>NI THEN Аф=А%+1%:1=1+1 E 
LSE A$=A$+" ":1=1+2 

220 NEXT I:ñA$=LEFT$(A$,40) 

230 LOCATE 0,23:COLOR 4,91:PRINT аз 

240 IF М1210 THEN NI=NI-,5 

250 мужму+1 :6ОТО 150 

260 PLAY "T102DOREMIFASOLASIO3DO" 

270 SCREEN 0 

280 LOCATE 6,3:COLOR 4,6:PRINT USING"£££ 
££";0 

290 COLOR 0,3:LOCATE 0,23:PRINT "VOUS AV 
EZ PERDU . UNE AUTRE (O/ND ?"; 

300 A$-INKEYS:1IF à$-"" THEN 300 

310 IF A$="0" THEN 70 

320 CONSOLE 0,24:PRINT:COLOR 3,0:PRINT " 
AU REVOIR" :ЕМО 


caractéres graphiques. 


Ligne 150 : Test du clavier. 

Ligne 160 : Test des collisions. 

Ligne 180 à 280 : Programme principal. 
Ligne 290 à 320 : Fin de la partie. 


MIDWAY 


Votre ordinateur sera-t- 


е plus fort dans la bataille 


navale qui va vous opposer à lui. 
Soyez le plus rapide à découvrir ses bateaux 
et tout ira pour le mieux. 


Entrez les coordonnées puis | 
(H pour horizontal et 


sition de vos navires 
pour vertical) 


et... à l'abordage. 


е 


тал 6 ГО не 


АТ 
a 
E 


1 


1: 


T ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ *RUTEUR:LRRRY COVER & SOPHIE VATAUXX 
ЖЖЖЖЖЕЖЖЖЖЖЖЕЖЖЖЖЖЕЖЖЖЖЖЕЖЖЖЖЖЕЖЖЖЖЖЖ 

PRINTCHR#( 12): SCREENINTCRNDX 1 2»*9, 0, 8: LOCRTEG, 0,0 

CLEAR. , 9: GOSUBS? : GOSUB47 

RESTORE29 : FOR I=ØT09 : FORJ=ATO9: RCI,.J)28:RERDC:BCI, Jet NEXTJ: МЕХТТ 

C=32 :L=16 : CL=12 : G0SUB49 

C=32:L=112:CL=1 :GOSUB49 

FORR=19T0189 STEP 19:BOX(129,R)-(122,R+19), 346 C71 )^CRZ18 2) : PLR'"RTT2LSDORE" : HE 


GOSUB61 
RE :LOCRTE4, 2: ЕОКТЕ1Т09: FORJ=1T09 : PRINTGRSCR( J. I 22; : NESTJ: LOCRTE4, CSRLIN+1 


9 LOCRTE28,8,0:PRINT"VOTRE COUP 7 Ы 

СОСАТЕ2В, 9, 2: PRINT" ы) 
A$=INPUTS( 2 5! A=ASCC R$) 

ТЕСА<БЗОКА?? 3 )THEN11 

Н-Н-64 

ВеНЗССЕТОНТӨСН85. 122-48 

1FEC A, В )=@THENC< À, B )=7 :PLAY"T12S1ILASOFAMIREDO" : GOTO18 
ШЕН E оба ИЕМЕ EE 


07011 
COLOR1 :LOCATE4, 14: FOR1=1T09 : FORJ=1T09 : PRINTGRS# CC J^ 1 22; : NEXTJ:LOCATE#, CSRLIH+ 


:НЕХТТ 
19 R=IHT(RHD( 1 2X9*1 3: BSINTCRNDC1 Ж9+ 1) 


ТЕВСА, В )=7THEN19 

ТЕВСА, B>2=8THENRKR,; B >=? : СОТОВ 
ЇЕНСН,ВЭФВТНЕН19 
PLAY"A1T1Z2DO0REMIFAMIREDO" 
ВСА,В)<8:6<6+1 : IFG=16THENSS 


25 GOTOS 


ME NE ТР E EE 
1 


2? H=H+1 : IFH=16THEN88 


507019 

DRTRO,8,0,0,0, 0,0, 0, 0,0 
DRTR8,9,0,0,0,0,0,0,0,8 
DRTR8,8,8,1,0,0,1,0,0,0 
DRTRGO,8,8,2,0,90,3,8,0,8 
DRTRG,8,0,2,0,0,0,0,0,0 
DRTR8,8,0,3,0,4,6,0,0,0 
DATAA, 1,8,0,0,0, 0, 8,0, 0 
DATAA, 3,0,0,0,0,0,4, 5,6 
DRTRO,8,8,0,0,0,0,0,0,0 
des acd 9,0,0,0,0 


H 
UC-C/8-1:LC-CL/82-1:FORR-8TO?2 STEPS :BOX(C, L)-CC+R, L+R); CL :BOKCC+72, +72 >C C+ 


NO-INTCCRCA9 247 >: PLAY"A1T2L4"+N0S< NO > 
КСЕКИВ : LOCATECC+RC, LC : PRINTCHRSC 64+RC 2 
RE E ге 

T 
LOCRTECC, LC, 8: COLORS : PRINTCHR#C 922 
RETURN 


b. Ж 


48 DEF GR#(G)=295,128,128.128,128,128, 128,128 

49 DEF GR 12=255, 126, 156, 156, 190, 190. 255. 255 

S8 DEF GR$ 22-255,255,227,235,227,255,255,255 

51 DEF GR$ 3)=255, 255, 255. 255. 255, 190., 190, 136 

52 DEF GR$ 4)=255, 131: 143. 191,255,191; 143,121 

53 DEF СР 5 )=255,255,255, &HC7, SHD7 ; &HC7, 255, 255 

54 DEF GR$C 62-255, &HF8, &HFE, &HFE, 255, 254, &HFE, 248 

35 DEF GR&C? )=255, 126, 128, &H9C, &H9C, &H9C, 128, 128 

56 DEF GR$, 8)=255, &HC1, &HR2, &H94, $H88, &H94, &НЯ2, &HC1 

57 RESTÜRESS 

58 FORF=0T06 : RERDR$ : HOER 5: НЕХТ 

59 DRTRDO,RE.MI.FR,SO0.LR,SI 

60 БЕТПЕН 

51 RESTORESB 

62 FORR=1TOS 

63 RERDLG, B$: LOCATEZ9, 9: PRINTSPC 20 > 

64 FORT=1TOR : LOCATE29,8:PRINT'COORDONNEES DE VOTRE ":LOCRTEZG,9:FPRINTES;" Мо";Т 
65 R$=IHPUT%(3):X=RSC(R$y-64 ` 
66 '-VRLCMIDSCRS, 2,15) 

67 ZS-RIGHTSCORS.15 

68 IFCH*LG»18RNDZSz"H" THEN6S 

69 IFCY+LG>19ANDZ$="4" ЭТНЕМ65 
70 1-0 

71 IF(Z$<>"VURNDZ$<>"H".>THEN65 
72 1ЕС2%="У" УТНЕН81 

73 Н(8,Үз-4 

74 U=U+1 : IFCUSLG THEN77 

75 Sekt): IFCUSLG-12THEMNRC, Y 226: GOTO77 
76 Вси, 75 :60Т074 

77 МЕХТТ 

78 NEXTR 

79 RETURH 

98 DATA4, PORTE-AYION, 3, CUIRASSE, 2, SOUS-MARIN 

81 ROG el 

82 U=U+1 IFC Us бЭТНЕН?? 

83 Ys'41:IFCU-LG-12THENRCH, Y )=3: G0T077 

84 ACK, Y =2:G0T082 

85 CLS:PRINT"J'RI GAGHE !!!" 

86 А ТНРИТЕК 1) 

87 FUN 

88 CLS:PRIHT"BRRVO, VOUS AVEZ REUSSI LE RARE EXPLOIT":PRINT:PRINT:PRINT"DE BATTRE 
MON ETONNANT CERVEAU DE 48 Ко" 

89 RS-INPUTS 1) 


90 RUN 
‚ COMMENTAIRES : de jeu 
Ligne 3 : charge l'emplacement des Ligne 29 с 38 : data du jeu de 
bateaux de l'ordinateur, vous pourrez l'ordinateur, indiquant la position de 
les changer à votre grès ces bateaux 
Ligne 6 : trace les grilles de jeu Ligne 48 à 56 : redéfinition des 
Ligne 8 : affichage des bateaux caractéres graphiques. 
Ligne 9 à 13 : entrée de votre coup Ligne 63 à 84 t entrée de la position de 


Ligne 14 à 28 : différentes possibilités vos bateaux en début de partie. 


=з 


ТНОМ$ОМ МО 5 


Х ВАҮ$ 


Des lignes électrifiées en liberté ? 
C'est inconcevable... 

Réduisez leur espace vital gráce à des murs isolés, 
que vous déplacerez avec les touches suivantes : 
«A» = haut, 

«Z» = bas, «.» = gauche et «/» = droite. 


1 ата aa 199 
Э 


=199:0=199 
02,1 
с 198 
LOCATEZ6, 1, 8: РЕТНТ"ЗСОКЕ :" 
LOCATEZ3, 3, 8: PRINTSC 
:PRINT"TEMPS :" 


=119:H=149 


Ез100:Ғ-1080 
14 Е<105190:Е125188:64105118:Н<125140 
15 LINECE,F2-(G,H),1 
16 FORI-4TOISTEP-1:EC I )=EC 1-1): F< I )=F¢ I-12: GC )=GC 1-12: HC I22HC I- 12: NEXTI 
17 E=E+%X:F=F+' : G=G+Z : НЕН+И 
18 ІЕСЕ<НООКСЕУ ение ЭХ 


21 ТЕСН<ВООКС НО ТНЕНИЕ-И  НЕН+И 
22 A$=INKEYS 

23 1FA$=""THENZS 

24 GOSUE31 

25 ПІНЕ<ЕС42,Ғ(422-<6<4),Н(492,-1 
26 LOCRTE29,8,0:PRINTTI - - 
27 TI=TI-1:IFTI=ØTHEN46 T ж 4 

28 Н1-Ес4):Н; 4): 3564): A4=HC 4) а San SCH 
29 ЕС0)-ЕНРС028Е:068780:НС02-Н + 

за GOTO15 

31 J=ASCLAH) 

32 IFJ=81THEND=D-; 
33 ІЕ.Ј=65ТНЕМВ=В+; 


35 IFJ-7? THEHR-R*2:GOTOS? 

36 RETURN 

37 5С-5С0%10:В0Х<Н,В2-<С,02,1 

38 LOCRTE29, 3, 9: PRINTSC:LOCRTE28, 8, 0: PRINTTI 
39 85541:1Е8-70ТНЕМ51 

40 IFCCR2EC12DO0RCR2GC122)THEN4S 

41 ІЕС«В2ЕС 1 220RCB2HCI 22 УТНЕМ45 

42 IFCCC<E 1 202084464 1 22 )THENAS. 

43 1ЕССрСЕС12208СрСНС 1 22 THEN4S 

44 RETURN 

45 TI=TI-30:PLAY"A1DO" : RETURN 

46 CLS:PLAY"A1035050500250" 

47 PRINT"VOUS RVEZ PERDU !!!" 

48 PRINT:PRINT:PRINT"VOULEZ VOUS REJOUER 777" 
42 INPUTAS: IFRSCCRIBDS?STHENRUN 


END 
51 S20:SC-SC*TIX10 
52 PLAY"A102REMIREREDO" 
53 BÜRCR,B2-CCoD2,2 
54 A=fA+1:B=B+1:C=C-1:D=D-1 
55 IFCRECOTHENSS 


56 Т1=99 

57 GüTO4 

COMMENTAIRES : coordonnées des lignes en déplacement 
Ligne 31 à 35 : test du clavier 

Ligne 1 à 14 : initialisation des Ligne 37 : rétraississement de l'espace 

variables et tracé du jeu à l'écran disponible 

Ligne 18 à 21 : test des déplacements Ligne 40 à 44 : test des collisions 

Ligne 25 à 29 : affichage des nouvelles Ligne 46 à 50 : fin du jeu 


> Ee Ч z E пи 


THOMSON МО 5 


GUERRE NUCLEAIRE 


La Terre sera-t-elle radio-active ou поп? 
Son sort est entre vos mains. 
Suivez fidèlement les instructions de l'ordinateur 
et tout se passera bien... peut-être! 


SCREEN1 ,7,7 

CLS:PRINT"SPRITES EST FIER DE VOUS PRESENTER :" 

PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT :ATTRE1, 1:PRINT'LA GUERRE NUCLEAIRE" 
СОСАТЕЗ, 22, В: РЕТНТ"МТСКО-ЕЦК 1985" : ATTREG, 9: GOSUB115 

CLS : SCREEH6, В, 8: RESTORE : JO=1 : NC=1 

G0SUB83 

CLS 

GOSUB106 : PRINT 

REM LA LIGNE SUIVANTE INITIRLISE LES CASES 

18 PRINT" "j :FORI=1T06 :FORJ=1T06 : A6 I, J)=Ø:NEXTJ:NEXTI 

11 FORJ=1T06:PRINTCHRSC64+J);" "; :NEXTJ 

12 PRINT: PRINT :FORI=1T06 : РЕТНТТ; : FORJ=1T06 : РЕТНТАС I; J); :NEXTJ: PRINT: PRINT :NEXTI 
КЕЗТОКЕ125 

13 КЕМ TRACE LE CADRE 

14 КЕНОИ,Я,Ү,2:І1Ғ2<ӨТНЕН16 

15 ПІМЕСИ,Я2-СҮ,22,4:607014 

16 LOCATES, 17,0 

17 IFN=1THEN76 

18 PRINT"JOUEUR 1 :";CP 

19 PRIMT"JOUEUR 2 :";CH 

20 PRINT"NOMBRE DE COUPS"; INTCH 

21 PRINT"VOTRE COUP JOUEUR "; JO: ТЕ<СРЕЙОКСНЕВ АНОНС >=2THEN6S 
22 REM ATTEND DEUX CARACTERES,LES ANALYSE ET LES INTERPRETE 
23 CS-IHPUTSC2):NC2NC*. 5 

24 IFRSCC СВ ЖБЗОКАЗС« C$ 22 7 üTHEN23 

25 IFRSCCRIGHTSCCS, 1 2 > 480RASCCRIGHTSC СФ, 1 22254THEN23 

26 REM TRADUIT LES DEUX CARACTERES EN COORDONNEES 

27 F=ASCCC#)-64 : E=ASCCRIGHTS#( CS, 122-48 

28 IFRCE,FXXGRNDJOz1THENJO-2 : GOTO16 

29 IFACE,F 2 >GANDJO=2THENJO=1 : GOTO16 

38 1ЕССР=@ОЕСН=@ )ANDNC >-ЗТНЕНЕЗ 

31 GOTO37 

32 ACE,F )=A+1:IFACE,F2>=CCE,F )THEN47 

33 ВЕЕР: IF JO=1THENJO=2ELSEJO=1 

34 GOSUE112 

35 ТЕВЕВТНЕНСРЕСР+1 

36 GOTO16 

37 A=AÇE,F) 

38 ТЕ Ож2ТНЕНАВ 

33 GOTO32 

40 IFJO-1THEN33 

41 RCE,F2-R-1: IFRBSCRCE,F 2227 CCE, F ?THENG1 

42 BEEP:IFJO-1THENJO-2ELSEJO-1 » 


M uS 


44 IFA=GTHENCN=CN+1 

45 5070156 

46 REM EXPLOSION POSITIVE 

47 ACE,F)=8:ACE-1,F )=ABSCACE-1,F 2241: ACE+1,F )=ABSCACE+1,F 2+1: АСЕ, F-122RBSCRCE,F. 
1221: ACE, F+12=ABSCACE, Р+1 22+1 : PLRY"RIO2DO" 

48 GOSUB11Z 

42 REM TEST SI REACTION EN CHAINE OU NON 

59 E=1:F=1 

51 IFACE,F2>=CCE,F ОТНЕМА? 

52 F=F+1:1FF<7THENS1 

53 Ғ-1:ЕзЕж1:ІҒЕ<?ТНЕМ51 

54 КЕМ COMPTE LES CASES POSITIVES 

55 CP-B:CH-B:FÜRE-1TO6:FORF-1TO6 

56 IFACE,F)>@THEHCP=CP+1 

57 IFACE,F ХЯТНЕНСНЕСН+ 1 

58 НЕХТЕ :NEXTE : 1FJ0=1THENJO=2ELSEJO=1 

53 507016 

68 REM EXPLOSION HEGRTIVE 

61 RCE,F2z0:RCE-1, F2--CRBSCRCE-1,F 22 *12: RCEHL1, F 2£-CRBSCRCE*1,F 221): АСЕ, Р-12Е-СА 


62 GOSUB112 
2 REM TEST SI REACTION ЕН CHAINE QU МОН 
64 E=1:F=1 
65 IFRBSCRCE,F 2222 CCE, F УГНЕМ61 
66 Ғ-Ғ%1:ІЕҒ<?ТНЕМ65 
67 F=1:E=E+1:IFE<7THEN6S 
68 6017095 
69 CLS:GOSUE112 : 1РСНЕВТНЕН? 1 
70 PLAY"DOCODOREMIDO" :PRINT'LE JOUEUR 2 A GAGNE ЕН ";NC;" COUPS ,":GOTO72 
71 PLAY"DODODOREMIDO" :PRINT"'LE JOUEUR 1 A GAGNE EN ";NC;" COUPS ." 
T2 PRINT:PRIMT:PRINT:PRINT"VOULEZ VOUS REJQUER 7?" 
73 GOSUB115: 1FA$="O0"THENS 
74 ІЕНФ42"М"ТНЕН?З 
75 END 
76 IFJO-1THEN1S 
0-2 


78 E=INTCRNDE 1 2X6 )+1 
79 Е-ІНМТСЕМОс 1 2X6 )*1 
80 REM CHOISIT RLERTOIREMENT UNE CASE JOURELE 
81 IFRCE,FOPBTHENTS 
S2 GOTOZS 
83 PRINT"VOULEZ VOUS LA REGLE DU JEU 7" 
84 GOSUB115 
89 IFRS-"H"THENSS 
86 IFR$C2"Oü"THENS4 
87 CLS 
88 PRINT"LE BUT DE CE JEU EST TRES SIMPLE :" 
89 FRINT:PRINT"'LA TERRE EST REPRESENTE FAR UH CARRE DE" 
98 PRINT:PRIHT"SIX SUR SIX.CHAQUE CASE PEUT AVOIR DEUX" 
91 PRIHT:PRIHT"POTEHTIELS RADIOACTIFS :" 
92 PRINT:PRINT"L'UN POSITIF" 
93 PRIHT:PRIHT"L'RUTRE NEGATIF" 
94 PRINT:PRIMT"POUR RENDRE RRDIO-RCTIVE UNE CASE ›" 
95 PRIHMT:PRINT"IL SUFFIT DE LR CHRRGER;MRIS SEULE UNE" : PRINT: PRINT'EXPLOSION PEU 
T INVERSER UHE CASE CHRRGEE":PRIHMT"ET LES QUATRES CASES VOISINES ..." 
96 Bi PRINT"POUR EXPLOSER; UNE CASE DOIT ATTEINDRE ЗА": РЕТНТ"КАОТО-АСТТУТТЕ СК 
ITIGUE sa." 
Эт GOSUB115 
98 CLS 
ЭЭ PRINT'TABLEAU DES POTENTIELS CRITIQUES :" 
100 PRIHT:PRIHT:FORI-1TOG6:FÜRJ-1TO6:RERDCE I. 2: РЕТНТСС I; J); : NEATJ: PRINT:PRIHT:HE 
ATI 
181 PRIMT"POUR JOUER UNE CERTAINE CASE, IL SUFFIT":PRINT:PRINT"DE TAPER SES COORD 
ОННЕЕЗ :EXEMPLE CAS)" 
192 PRIHT:PRINT:PRINT'APPUYEZ SUR C POUR COMMENCER" 
103 GOSUB115 
184 ІҒАФ< >"C"THEN1BSELSERETUREN 

БЕП CHOIX UN OU DEUX NEE H 

22?" 


% 


187 GOSUB115 
108 НЕУВСС A$) 
189 IFN=GORN>2THEN197 


119 CLS:RETURH - 

111 REM ROUTINE GUI AFFICHE TOUT LE TABLEAU 

112 LOCATE®, 3, 8: FORI=1T06:LDGRTES, CSRCIN:FORJ=1T06 :PRINTRC Le 2; :NEXTU PRINT : PRIN 
т: 

113 LOCRTEG, 17, 8: RETURN 

114 REM ROUTINE QUI ATTEND UN CARACTERE RU CLAVIER ET LE STOCKE DANS A$ 

115 AS=INPUTS( 1 3 

116 RETURN 

117 REM YOUS POUVEZ TRANSFORMER LE TABLEAU DES SATURATIONS MAIS IL FAUT GARDER U 
M CARRE DE SIX PAR SIX 

118 DATA 2,3,3,3,3,2 

119 DATA 3,4,4,4,4,3 

129 DATA 3,4,5,3,4,3 

121 DATA 3,4,5,5,4,3 

122 DATA 3,4,4,4,4,3 

123 DATA 2,3,3,3,3,2 

124 REM LES DATAS SUIVANTES SONT LES COORDONNEES DU CADRE 

ES DATAA Q^ 0 120,0. 120, 168, 120,23, 0,23, 120, 168,120, 168, 0,168, 0, 0,0, 0, 20, 166, 20 
126 :8,80,-1 


COMMENTAIRES : positives 
Ligne 1 à 4 : affichage de Та Ligne 61 à 62 : explosion négative 
présentation Ligne 64 à 68 : teste si la réaction est 
Ligne 9 à 12 : initialisation des cases en chaine 
du jeu Ligne 69 à 75 : musique et affichage des 
Ligne 14 à 19 : tracé du cadre et des résultats 
textes à l'écran Ligne 81 à 82 : choisit aléatoirement 
Ligne 18 à 21 : attend la réponse des une case jouable ^ 
deux joueurs Ligne 88 à 104 : explication du jeu 
Ligne 23 à 25 : analyse et interpréte Ligne 106 à 110 : choisit un ou deux 
les réponses des joueurs joueurs 
Ligne 27 à 45 : traduit les caractéres Ligne 112 à 113 : affiche tout Те 
alphanumériques en coordonnées pour tableau 
l'ordinateur Ligne 115 à 116 : attend que le joueur 
Ligne 47 à 48 : explosion positive presse une touche et la stocke dans la 
Ligne 50 à 53 : teste s’il s'agit d'une variable A$ 
réaction en chaine Ligne 118 à 126 : tableau des 
Ligne 55 à 59 : compte les cases saturations 

THOMSON MO 5 


ELECTROCHOC 


Parviendrez-vous à suivre 
le rythme infernal d'un cable haute tension? 
Que votre vaisseau le touche et vous pouvez dire 
adieu à la vie. 
Q = haut, W = bas, «,» = gauche et «.» - droite. 


1 CLEAR..6 


ы 
т 
ж 
ї 


а 


LOCATES,8.2 
4 DEFGRf(Q0)-32,22,32,65,0,0,0,0 
5 ПЕЕБВЕ(1)-32,32,32,224,0,0,0,0 


6 DEFGRf(2)-0,0,0,0,63,32,32,32 


/ 


В 


10 CLS:SCREENI2, 15,4 

11 LOCATE10.2:PRINT"ELECTRO-CHOC":LOCATEO.S:PRINT"DIRIGER VOTRE 

DU FIL":PRINT:PRINT:PRINT"CONDLUCTEUR SANS LE TDUCHER.SINDN " 

12 PRINT:FRINT:FRINT"C'EST L'ELECTRO-CHOC 1111" 
PRINT:PRINT:PRINT:PRINT"COMMANDES : DO":PRINT:PRINT^ 
PRINT" ын 
LOCATEQ. 23: РРТМТ"УТТЕЗВЕ (1-5):4ЕСЫ-Е5САЕВОТ)" 
I$=INKEY$:R=RND; IF I$=""THENIS 
A=VAL (74) : ТЕА< 10RA>S5THEN1S 
SCREEN1.,2,3: CL ës РЕТМТ Е: .ЕСТВО-СНОС" 
се.094 
X=18:Y=12 
FIRR=1TON*+30: NEXTF. 
GOSUB77 
IFCX3STHENRS=GRS (5) 2 FRINTBE: K=X+ 1: ЕС: 607029 
FDORR-1TOA*89: NEXT 

4 С=5 

зсто52 


8050877 


As=INkEVt:E=E+1:IFE=£ #OTHENAZ 
IFA£-"'"THENZG 
IFA£c»"D'THENSS 


IFC<>@THEN45 


MeISSEBU 


GOTO78 


IFA "WU" THENSA 


ТЕС< 1 ТНЕМА< 


>" "THEN39 
ТЕС< >>ТНЕМ4З 
зото7е 
ТЕА+< >". "ТНЕМ2В 
IFCÉYSTHENAT 
GOTO7E 

: сотоза 

=1T010: FORR=QTOIS: PL ét 100": SCREEN, „Е: NEXT: NEXT 


LOCATEQ, 22: PRINT еже“: РАТМТ ЕГЕСТКО-СНОС 1!!! !  —PRINT "e 


кке MR :РБІМТЕ; "507: 


IFGZ25THENPRINT"C'EST TRES FAIBLE !!!":Р: АҮ"А0Е 9000": 507050 
ТЕЗ<БЮТНЕМРЕТМТ "С EST TRES MOYEN ''''!":PFLAY"A1DCRE":GOTOSO 
IFGÉ7STHENPRINT"C'EST ASSEZ BIEN !'!!'":PLAY"A1DOREMI":GÜUTOSQC 
PRINT"C'EST PRESQUE PARFAIT !!'":PLAY"AIDOREMIFA":GDOTOSU 
РБІМТ"100 Z . BRAVO 1111 INCROYABLE !!'!'":PLAY"A1DOREMIFASDLASI" 
FORR=1TO02000:NEXT:PRINT'VOULEZ VOUS REJOLER 777" 

Af-INKEYf: TFA$=UUTHENSIELSETFA$S= "0" THENRUNELSETFA#= "М" THENENDELS! 
B$=A$: G=6+1: IFG-100THENLDOCATEO . 24: 501049 

D=INT (RND#4) 

IFD>ØTHENSØ 

IFY=1THENS3 

IFC=ATHENLOCATEX, Y-1:PRINTGRf£(4)::C-D: Y2Y-1:G0T027 
IFC-2THENLOCATEX-1,Y:PRINTGR$ (0) : :C=D: X-X—-1: 607027 
ТЕСЕЗТНЕМГОСАТЕХ+1 „У: PRINTGRS (1) “ : С-Р:Х-Х41:00Т027 

вото 55 
| IFD>1THEN66 

IFY=22THENSS 

IFC-iTHENLGCATEX. +1: PRINTGRS (4) : : C=D: Y=Y+1:GOTOZ7 


IFC-2THENLOCATEX-1,Y: PRINTGRS (2) ; :C=D: X-X-1: GÜTD27 


64 ÍFC-ZTHENLOCATEX-1,Y:PRINTBRS(G)::C-D: X=X+1: 3017027 
ав BOTOS3 

65 IFD>2THEN72 

67 ТЕХ-1ТНЕМ5З 


68 IFC: 


89 ЇЕС-2ТНЕМ ПСАТЕХ-1,Ү:РБЇМТЄВФ(5)::0-0:Х-Х-1:50Т027 


70 ЇЕС-0ТНЕМ ПСАТЕХ.Ү-1:РЕЇМТБН35(5): 


=D: Үүзү-1:8О0ТО27 


71 LOCATEX,Y+1:PRINTGRS (1): : C=D: Y=Y+1: БОТО27 


72 IFX-39THENS3 
75 IFC=2THENSS 


74 IFC=3THENLOCATEX+1,Y:PRINTGRS (5) ; : C=D: X=X+1: 50Т027 v 


75 ТЕС«ВТНЕМЕОСАТЕХ, Y-1: PRINTGR£ (2 


:CeD:V-Y-1:80T027 


76 LOCATEX, Y-1: PRINTGR$ (0) : : C70: Y2Y*1: GOTOZ7 


77 FLeY"A1DO":LOCATEX, Y: PRINT" s" : : RETURN 


78 GOSUE77:GO0OTOSZ 


COMMENTAIRES : Ligne 17 à 27 : routine de jeu 
Ligne 1 : affichage de la haute Ligne 28 à 41 : test clavier 
résolution Ligne 43 à 49 : choix d'une réponse en 
Ligne 4 à 9 : définition des caracteres fonction du score 
graphiques Ligne 50 à 51 : test de nouvelle partie 
Ligne 10 à 13 : présentation du jeu Ligne 53 à 78 : routine principale du 
Ligne 14 à 16 : choix du niveau du jeu jeu 

THOMSON MO 5 


STAR WARS 


La guerre à repris entre les forces du mal et votre planéte. 
Repartez une fois encore 
dans une lutte dont vous savez qu'elle est sans issue... 
Q = haut, W = bas et la barre d'espace 
sert à tirer. 


ions 9 Y-INT(RND (1) #199) 
2 5СКЕЕМВ,0,0 

з CLEAR, „2 10 C-INT(RND(1)*15)*1 
4 LOCATEO,0,0 11 PSET(X,Y),C 

5 


DEFGR£(0)-0,64,236,254,255,254,23 12 NEXT 
6,96 
6 РЕРБВЕ(1)-0,2,55,127,255,127,55,6 13 Ү=0 


7 FORI-0TO150 14 7-23 


8 X-INT (ЕМО (1) #3 19) со 064 


39 


40 


41 


42 


43 


44 


45 


46 


47 


48 


49 


50 


51 


52 


55 


54 


55 


56 


57 


58 


59 


0 


LOCATEO, Y 


PRINTS "ç 

Y=Y+1 

вотоз4а 

A=RND (1) #9 

IF А<1 OR 825 ТНЕМ48 
ЇЕӨС2ТНЕМ15 
ЇЕӨСЗТНЕМ58 
ТЕӨС4ТНЕМ62 ЕГ5Е5З0 
ЇЕ 2-Ү ТНЕМБ8 

ТЕ Z>Y ТНЕМ62 
LOCATE38,Z 
ІЕ2-5ВТНЕМ15 
PRINT" "; 

Z=Z+1 

COLOR1 

LOCATES8,7 

РЕТМТЕК (1); 


GOTO1S 


LINE (303,2*8*4) (B, ZX894) ,7 


PLAY"A1LSOSDOSOSIDO" 


LINE (285 ,7#8+4) -(8,72#8+4),2 


IF Z=Y THEN 77 ELSE15 


31 


32 


33 


LOCATEO, Y 
PRINTGR$ (0): 
COLOR1 
LOCATE38,Z 
PRINTGR$f(1); 
A$=INKEYS 
IFA$-""THEN43 
IFA$-"QO"THENSO 
IFA$-"W"THENSBSB 


ІҒАФ< >" "THENAS 


LINE(B,YX8*4) - (303, YXB*4) ,8 


PLAY"A1LSDOSDOSOSIDO" 


LINE(8,Y*8*4) C303, Y*8*-4) ,0 


IF Z=Y THEN 67 ELSE43 
ТЕҮ-О0ТНЕМ43 
LOCATEO,Y 

PRINT" "e 

Y=Y-1 

LOCATEO,Y 

COLORA 

PRINTGR£ (0): 

807043 


IFY=23THEN43 


-OCATESS, Z 72 A-RND(1) 


E 


£3 IFZ=@THEN15 73 IFA$-""THEN71 
54 FRINT" "s; 74 тва+-"0"ТНЕМВО 
69 7-7-1 75 тваж-"м"ТНЕМЕМО 
56 507054 76 607071 
67 CLS 77 CLS 
58 PRINT"BRAVO,VOUS M'AVEZ EU !!!" 78 PRINT"JE VOUS EST PULVERISE !!!" 
69 LOCATEØ, 20 79 BGO0TO69 
70 PRINT"VDULEZ VOUS REJOUER 777" за CLS 
71 A$=I 81 50704 
COMMENTAIRES : Ligne 26 : tir du joueur 


Ligne 27 : routine de sons 


Ligne 1 à 4 : initialisation des Ligne 28 : effacement du laser du joueur 

variables Ligne 29 : touché, fin de la partin 

Ligne 5 à 6 : redéfinition des Ligne 30 à 42 : boucle principale des 

caractères déplacements 

Ligne 7 à 12 : affichage des étoiles Ligne 43 à 57 : réflexion de 

Ligne 13 à 20 : affichage des deux l'ordinateur et les déplacements 

vaisseaux Ligne 58 à é? : laser de l'ordinateur 

Ligne 21 à 25 : test du clavier Ligne 68 à 81 : fin de la partie 
THOMSON MO 5 


LOVE SOURIS 


Vous aimez les souris? Tant mieux. 
Un pauvre petit animal s'est égaré dans un labyrinthe. 
Aidez-le à se sortir de ce piège. 
О - gauche, W - droite, «,» - haut et «.» — bas. 


1 CLS:SCREENC,4.S5 

2 LOCATEG.0.0 

3 ЕОКТ-0Т023: READA# 

4 FORJ=1TOLEN (A$) :B$=MID$ (A$.J, 1) : IFB#="A"THENGELSETFB#="C"THENPRINT" "rs ОТО 
5 FRINTCHR$ (125) : : GOTO7 

6 РЕТМТСНЕ (127) ; :А=А+1 


7 NEXT: PRINT: NEXT 


т 


ІҒА< >46ОТНЕМСІ 5: PRINT"ERREUR DANS LES DATA :!!!1":ST0F 


° ГІМЕ 157,0) (57.24) СНЕ+ (1275 


18 LINE-(0.24) CHR$(127) 


76 


11 Х=20:Ү=25 


12 LOCATEX, Y: РЕТМТ"#" 

13 ВЕЕР 

14 B£-INKEY£:R-R*1: IFB$£-""THENISELSEA$-BS$ 

15 IFA$-"Q"THENIFSCREEN (X, У-1) =32THENLOCATEX , Y: PRINT" ":Y-Y-1:GOÜTO12ELSE12 
16 IFA$="W"THENIFSCREEN (X , Y+1) =32THENLOCATEX , Y: PRINT" ":Y-Y*1:GOTO12ELSE12 


17 IFA#$=", "THENIFSCREEN(X-1 , Y) =32THENLOCATEX , Y: PRINT" ":X-X-1: GOTO12bELSE12 


18 IFA£-"."THENIFSCREEN (Х+1 , Y) =32THENLOCATEX , Y: PRINT" :X-2X*1:GOTO12ELSEIFSCREEN 
(X1, Y) 2125THEN2BELSE12 

19 GOTO14 

20 DATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA , вассссааассассаасаассссссссаадааава 
AC , AAAAAACCCAAACCACACACCAACARAACECECA 

21 ратаааассасассаассаасААссасссасссаасаасас,асссаассассассааааассасааААСАААССААС 
ас,АСАССАСАААСАСССССССССАСССАСССАСАСССА 5 

22 оатаасаасассассасасасасссавасссавасесаяас , ассасавсасаасасасасссессадайвассассс 
ас, васасассассасасасасассссасссссаадаса 

23 ратаассасасааасасасааассааааасааааасссса, ACAACACCCACCCCACCCCCCCCACCACCCACAAAR 
+ ACCACAAACAAAAAAAAAAAAAAACAACACACCCCACCC 
24 DATAAACACCCACCCACCCACCCACCCACACCACAAACAA ,ассадасааасссасссасссасасасаассаасса 


« ACAACACCCAAARARARARAAACACACCAACAAACA .ассссаайсссссссссесссасасаасаасассса 


25 ратааааассааааааааааадаасссассассасасааа, асссасасссасссассссаааааасссаасассса 


„АСАСССАСАСАСАСАСАС ЗАСССАДАВАВАССРАСА 


26 ратавссаввесесссасасассасассссессаасссса , AACCACOCAAAAACCCACCACARAACAACCAAACAA 

„аавсссавасссаадавасаасессассаассадав 

27 патавазвававсасссассссаайвасаассаассвасса ,асасасасаасасссассвасссссаасааасссс/ 
! Í : / Грета 

^6 

28 PLAY"A1D3SISISISOSODODODO":CLS: SCREEN ,2,3:PRINT"BRAVO,LA SOURIS EST APRES "; 


INT(R/10):" UNITES DE TEMPS" 


29 LOCATEO,10: IFR<óØØTHENFRINT"VDUS ETES TRES FORT !!!":80T034 
30 IFRC7O0PTHENFRINT"C'EST PAS MAL у81, СТ!!! : 5607034 

51 ТЕР<ФВОТНЕМРКТМТ "С EST MOYEN !!!":б0ТО54 

32 ІЕБ<120ЙТНЕМРВІМТ"С“Е6Т FAIBLE !!: "1607034 


33 PRINT"C'EST NUL !'!" 
#4 LOCATEO.20:PRINT"VOULEZ VOUS REJOUER 777" ат +ГМКЕУ+: IFA$=""THENSAELSEIFA#= "О" 


THENRUNELSEIFA$< >"N"THENSA4ELSEEND 


c on Ne XN 


COMMENTAIRES : déplacements 

Ligne 20 à 27 : tracé du labyrinthe en 
Ligne 1 à 2 : initialisation des datas 
variables du jeu Ligne 28 : fin du jeu 
Ligne 3 à 12 : dessin du labyrinthe Ligne 29 à 33 : commentaire du score 
Ligne 13 à 19 : test du clavier et des Ligne 34 : voulez-vous rejouez ? 


COMMODORE 64 


MASTER MIND 


"ordinateur choisit cinq couleurs parmi huit, 
qu'il garde secrétes et que vous devez retrouver. 
Vous avez pour cela dix essais. 

À chaque réponse, le c. 64 vous indiquera les couleurs 
bien choisies et bien placées, 
puis les couleurs bien choisies mais mal placées. 


1 

2 

3 

4 d г 
6 ККИ СЕ 12 

? PRINT "k" 

8 PRINT "ир" 

1 


В PRINT TAB(12); ee 
PRINT TAES 
PRINT ТЕВС12); ж MASTERMIND ж" 

PRINT TREC125;"d ж" 

PRINT ТНЕВ<129; "ЕЖ" 

PRINT "женени ол EZ VOUS LE MODE D'EMPLOI ? OH" 
GETRS : IFR$=""THEHGOTO16 

1FR$="0"THENGOSUE 1596 


18 PRINT 


19 КЕМ =-= -CHOIX DES CARACTERISTIQUES DU JEU 
28 РЕТНТ "NOMBRE DE COULEURS POSSIBLES ? CMRAIMUM-B" 
за INPUT НС 


48 PMAXSNC ` ТЕНСУЄТНЕНРМАХ=6 
50 PRINT "НВЕЕ DE COULEURS DANS LA COMBINAISON ? СМВАТМИМЕ"; PMAX; "y" 


58 INPUT НР. 

65 REM - PALETTE DES COULEURS POSSIBLES 
70 PFIHT" ag m ag ж вм = шш "ul 

88 PRINT "1 m 23 2 m Q. 3 H 344 Байги 

ЭЙ PRINT " dd mua "ua ша = ч 


188 IF MC-8 THEN 50 TO 142 

118 IsS-NC:PRIHT"ZMNI"; TABC4#HC) ; 

128 FOR J=1 TO І:РРІНТ"Я m"; : NEXT 
JE GRIMT :РРІНТ ТНВС4ЖНС)) 

138 FOR J=1 TO I:PRINT"8 m"; : NEXT 
135 PRINT :РРІНТ ТНВС4ЖМС): 

140 FOR 141 TO ІСРБІМТ"Я Ш";:НЕХТ 
141 PRINT 

142 
145 
147 
149 L'ORDINATEUR FIXE ALEATOIREMENT SR COMBINAISON 
158 FOR Ізі TO HP 

198 PI =INT<HC*#RHDCTI)+1)> 

17S NEXT I 

180 ІНей:ІТ-й 

189 REM --------------------------------------------і ENTREE DE VOTRE COMBINAISON 
198 PRINT ТАВ«ТТО; 
195 ЕОЕ1=1ТОНР:СРС1 "H 

196 РБІМТ:РБІМТ TRECIT?; 

197 ОЕТРЕ: ТЕРФЕ""ТНЕНСОТО197 

198 ІчУН((РФ): IFI=ØTHEHPRINT" TIM" : сототза 
199 PRINT:PRINT ТНВ<І 
288 GET С8<12:1Е C#CI 
202 CPCIO-VBLGCSCID):PRIN 
203 1ЕСР< ТО <ОТНЕНРЕТНТ" TI" :GOTO198 


204 IF CPCI)=1 THEM PRINT TABCIT+2#CI-1)); "аз 1m"; :60 TO 212 
205 IF СРС19-2 THEM PRINT TRBCIT*2XCI-122; P 212 
286 IF СРС12-3 THEN PRINT TRECIT*2*CI-1)); 212 
207 IF CPCI)=4 THEM PRINT TRECIT42ECI-12); 212 
288 IF CPCI2-5 THEN PRINT TRBCIT*2*CI-155; 212 
2802 IF СРС19-6 THEM PRINT TRHBECIT*2*CI-122; 212 
218 IF CPCI2-7 THEM PRINT TABCIT+2#¢I-1)); 212 
211 IF CPCI2=8 THEM PRINT ТНВ<1Т%2%61-199; 212 


212 ТЕ-1:ЁОР1-1ТОМР:ТЕ-ТЕЖСРС1):МЕХТ 
213 IF TE-BTHEM 6070127 
е 


RS op EVALUATION DE LA COMBINAISON 
PCID:IF CPCID-PCI? THEN 0-041:0РС12:48:ЕС1)-9 


238 FOR 1-1 TO NP 
240 FOR 1-1 TO НР SE 


79 


— P 8. 


IF I=J THEN GO TO 394 
IF DPCI)<>RCJ) THEN GO TO 300 
П=р+1:0Р<1)=0:Е47)=9:00 TO 318 


PRINT TRECIT42XMPo;" mE" 
A=POS(G) :B=IT 18 

IF 8238 THEN GO ТО 466 
FOR RIsR ТО БІРБІНТ " "j: 
РЕІНТ 

РЕТНТ 


IF IN-8 THEN PRINT "AIMN" IT=29: REM 
IF ОЕНР THEN GOSUB 899:REM ша 


IF IN=16 THEN GOSUE 9@@:Е! 


REM 
ТЕ 14=1 THEHPRIHT " 2090 
IF 1821 ТНЕМРЕЇМТ TRECIT? 
FOR 2-1 TO зйй: НЕХТ 

IF IH=1 ТНЕНРЕТНТ" 

IF IN>1 ТНЕМРБІМТ TRECIT? 
FOR 2-1 ТО 288: НЕХТ 

50 то 800 

RETURN 

КЕМ -- 
FORLL= 
PRINT TAB£IT);" PERDU ! 
FOR 2-1 TO 208: МЕХТ 


NEXT 


HD : REM 


ME DU PREMIER COUP 
i" WWiGRGNE ЕН 


AFFICHAGE DE LA ВЕРОНЗЕ 


_---CHANGEMENT DE DEMI-ECRAN 


BAGNE ! 
PERDU ! 


S/P VICTOIRE 


";IN;"M COUPS" 


"PRINT"; 


uu 


"IPRINT"D; 


S/P DEFRITE 


PRINT TABCIT): "T "SPRINT "7"; 
FOR 2-1 ТО 209: НЕАТ 

НЕХТ 

PRINT " SOLUTION : "; 

FORI=1TOHP 

IF РСІ2-1 THEN PRINT TO 994 
IF Р<1)=2 THEN PRINT TO 998 
IF Р(12-3 THEN PRINT TO 998 
IF Р(12-4 THEM PRINT TO 990 
IF Р<І2-5 THEN PRINT TO 998 
IF P<XI>)=6 THEN РЕЇНТ TO 998 
IF Р<1)=7 THEN PRINT то 990 
IF Р(12-8 THEN PRINT 

MEAT 

PRINT "Mi" 


--S/P MODE D'EMPLOI 
"лап. S^RGIT DE TROUVER PARMI NC COULEURS," 
"REPEREES PAR UM NIMERO COMPRIS ENTRE" 

ү: Si ЕТ SI," 

"UNE COMBINAISON DE NP D'ENTRE ELLES" 
PRINT " «LES REPETITIONS SONT POSSIBLES)" 

:PRINT "POUR PROPOSER UNE COMBINAISON, TAPEZ" 
“POUR CHACUNE DES POSITIONS POSSIBLES :" 

" @-LE NUMERO DE LA POSITION CL ñ HP)" 

" -PUIS LE NUMERO DE LA COULEUR РКОРОЗЕЕ" 
PRINT " A CETTE POSITION CL A NC)" 

:PRINT "ALR COMBIHAISON EST PRISE EN COMPTE DES" 
"QUE LES HP POSITIONS ОМТ ETE AFFECTÉES," 

" SANS APPUYER SUR RETURNA" 

:PRIMT "LE RESULTAT EST FOURNI PAR 2 NOMBRES" 
" W-NBRE D'ELEMENTS BONS DANS L'ORDRE" 

ч  -МЕРЕ D'ELEMENTS BONS ЕН DESORDRE" 
"WEPXIPPUYER SUR WH POUR CONTINUER" 

: 1FR#=""THENGOTO1 169 

"тъ, тант GU^UME COMBINAISON N^EST PAS PRISE" 
"ЕН COMPTE VOUS POUVEZ :" 

"E-L'RNHULER,EN TAPANT ТОВ POUR UNE 


PRINT 


РЕТНТ FOSITION OU UHE COULEUR" 


G PRINT "-CHANGER LA COULEUR РЕОРОЗЕЕ A UHE" 
1218 PRINT " POSITIOM,EN TRPRHTMLE NUMERO DE CETTE" 
1215 PRINT " FOSITION,PUIS LE HUMERO DE LA NOUVELLE COULEUR" 
1220 PRINT "MOUS DEZ LE DROIT ñ 16 TEHTRTIVES" 
1239 PRINT "ЖЮФИВВМЕСННЕ CHANCE !" 
i248 PRINT "NENEÜHPPUVER SUR ЁСО POUR 
250 GETR$:IFR$=""THEN 00 TO 1250 
БЕТПЕН 


ЗММЕНСЕК" 


COMMENTAIRES : combinaison 

Ligne 220 à 310 : évaluation de la 
Ligne 6 à 14 : présentation du jeu combinaison proposée 
Ligne 15 à 17 : choix pour savoir si Ligne 460 à 470 : affichage de la 
vous voulez le mode d'emploi réponse 
Ligne 20 à 60 : choix du nombre de Ligne 480 : changement du demi-écran 
joueurs et du nombre de combinaisons Ligne 490 à 500 : test de fin du Jeu 
Ligne 70 à 142 : affichage du jeu Ligne 800 à 850 : affichage de la 
Ligne 145 à 147 : choix d'une couleur victoire 
Ligne 150 à 180 : choix des combinaisons Ligne 900 à 999 : affichage de la 
par l'ordinateur solution en cas de perte 
Ligne 180 à 215 : entrée de votre Ligne 1000 à 1260 : explication du jeu 

COMMODORE 64 


TILT-MAN 


Trois tailles de labyrinthe pour un tilt-man 
qui doit s'échapper le plus vite possible. 
J = gauche, К = droite, 1 = haut, M = bas. 
Prét? Courez... 


DIMMC 19,115, V619, 112, D64) 
POKES 3288, 12:4-RNDE£-TI» 
PRINT "MM LABYRINTHE !Xm" 


Нав: V=6 
IHPLIT"UM PETIT, UN MOYEN OU UN GROS "¿R$ 
IFR#=" "ТНЕНЕЦН 
W-RSCZR£2:IFH-BSBGOTO 228 
=9: 1Ехе??бото 220 


Кегай: ЕОЕТЕ1ТОН: H6 I, äis МЕХТТ 
ЕОЕТЕ1 ТОМ ИСА, I2-4:MCHt1, І) =: NEXTI 
INPUT 'MWOULEZ VOUS ASSISTER A LA CONSTRUCTION ";R$ 
Езй: IFRSC(R#$><>?3THEHF=1 
ZzIMTCRHD&12*H*12» 
":PRIHMT" ";:FÜRI-iTOH 
:А Е '"iIFISZTHEMR$-" " 
ІРКІНТН%; : НЕХТТ 


284 РЕТНТ 

294 "FOR ТОМ: PRINT" 

388 : ЕПЕЇ-1ТОН:РРЇМТ" 3 :NEXTI 
319 :PRIHT:PRIHT" 1"; 

328 FORI=1TOH: PRINT"; :HERTI:PRINT:MERTJ 
354 HZ, 13=1:C=2:Rez'5=1:GOTO 400 
364 ТЕВСОНТНЕНЕ- Е+1: вото 334 

378 F=1: IFS<2'2 THEHS=S+1 :00Т0 398 
388 S=1:GOTO 398 

394 IFMCRE, S»-8GÜUTO 368 

488 FOÜRJI-1TO4:D&J2-8:MERTJ 


418 Dilo-WcR-1.55-8 

428 Dr LR, S-15-8 

438 D43)-MECRA1,S2-B 

448 Dr *1)-BHHMDCC2VEH/20RSCV 2 
458 TO4:D-D4DCJ? : HEAT 
460 звй 


470 WeRMDCIOKD 
488 FORI1TO4:WX-4-DCID?: IFACGTHEHNEATD 
490 OHDGOTO 518, 530, 629, 550 
588 STOP 
510 R-R-1:VCR, S522 
520 0070548 
530 S25-1:VCR, S221 
548 GOSUB1200:GOTO 628 
550 IFSCVGOTO 57 
560 HzZüB:FÜRIZITOH:HCGI, 1224: NEXT 
570 УСЕ, Sam MER: 52081 
588 GÜSUBi2GG:S-8*1:IFS2VRMDCCH*V*1THEMC-C*1:GOTO 380 
594 GOTO 624 
ОЗА ТЕКБЛА ЖЕРІН 3 
619 GOSUE1200:R=R+1 
624 NOR, Siet rCtzri 
634 IFC<H#vV+2GOTO 48 
640 IFF<2>160TO740 
658 РЕ1НТ" ЩИ"; :FDRSZITOV:PRIMT"M"; :FORR=1TOH: 005081220: МЕКТЕ : FRIMT : FRIHT 
: MER 
748 F=Z:S=1:GETR$:GETR#:GETR# 
ТоЙ т15-"пайойа" 
ТЕЙ БішЕ:5ішбіН%ш" а" : ООБОВТЯЙА 
?та РЕІНТ" 9"; TIF 
780 GETA$:IFA$="" GOTO 770 
тэй D-RSCiBf2 
gag IFI=77G0TO 870 
818 IFD=?4G0TO 890 
828 1ЇЕП-7500Т0 929 
830 ЇЕПС»”300Т0 770 
840 IFS=1GOTO 770 
850 IFRBSCVCRS-12-12-1G0TO 778 
Dep 5-5-1:00Т0 Зай 
870 IFHBSCVCR,S2-15-1G0TO 770 
888 S=5+1:G0T0 940 
890 IFR=1GOTO 770 
988 IFVCR-1,S)€26G0T0 ?7а 
918 R=F-1:G0TQ 948 
328 IFYCR, S)<2GO0TO 770 

R=R+1 

":051181080 


984 DET2$:IFZ$«2" Sch 
998 РЕ1НТ" ЖИЕК 2 
1000 РЕТНТ"#" 

1010 FOFJ=1T0S1#2-1:PRIF # 

1924 FORJ-ITORI:PRIHT"NMM"; :HEXTJ:PRIHT"II" ; A$:RETURH 
1280 IFF-1THEHRETURH 

1201 PRIHT"#":FORJ=1TOS#2-1 PRINT :HEXTJ 

1210 FORJ=1TOR:PRIMT ШІ"; :HEXTJ:PRINT"IM"; 

1220 Аў="  ":XzV(R,S):IFAXZTHEHMR$-" I" 

i238 РЕІНТАФ; "IMIN"; :A$="  ":IFH-2THEMR$-". . 

1249 IFA-BTHEHR$-". J 

1250 IF#=1THEMA#=" |" 

1260 PRINTA#; "7"; : RETURN 


COMMENTAIRES : Ligne 860 : vous vous déplacez vers le 
haut 

Ligne 140 à 170 : initialisation des Ligne 870 à 880 : vous vous déplacez 

variables du jeu vers le bas 

Ligne 180 à 230 : taille du labyrinthe Ligne 890 à 910 : vous vous déplacez à 

Ligne 235 à 236 : visualisation de la gauche 

construction Ligne 920 à 930 : vous vous déplacez à 

Ligne 240 à 740 : création du labyrinthe droite 

Ligne 750 : remise à zéro du temps Ligne 940 : saut à la ligne 1000 

Ligne 760 à 770 : affichage du temps Ligne 950 : test si le joueur a gagné 

Ligne 780 à 830 : test du clavier Ligne 960 à 990 : fin de la partie 

Ligne 840 à 850 : retour si aucune Ligne 1000 à 1260 : affichage de votre 

touche n’est pressée joueur 


SERPENT-CRASH 


Obligez le serpent du « Commodore» 
à entrer en collision avec le vótre ou avec un des obstacles 
qui parsément le champ de jeu. 
N - gauche, M - droite, A — haut et Z - bas. 


созивзава 

Е=1й2:Е1=48:01=48:Х=1 

РЕІНТ "2" 
FüRIS1824T01863:POKEI,R:MEAT 
FÜRI-1183T0198385TEP48:POKEI,R:NEXT 
ЕОЕ1-2023Т019845ТЕР-1:РОКЕТ,Е:МЕХТ 
ЕОЕ151944Т1010645ТЕР-40:РОКЕТ,Ё МЕХТ 


ONT CD із 


18 ЕОЁ151154Т01173:РОКЕТ,Е:МЕАТ 

28 ЕПРЇ-1213Т013738ТЕР40:РОКЕТ,Ё:МЕХТ 

dp FÜRI=1854T011945TEP-49 : POKET , R:HEXT 

188 ЕОЕН1-1237Т01240 

118 FERDB1 

112 ІНТН28,9,12,20 

114 PDKER1.E1 

116 МЕХТН1 

118 POKE32986,E1 

124 FORR1=1246T01249 

122 КЕНШЕІ 

124 DATA49. 57. 56.53 

126 РОКЕВ1,РВ1 

128 НЕХТА1 

138 POKE32994, DI 

164 RESTORE 

208 FÜRK-13S86TO1SGSSTEPSG 

282 FORL-1TOL1 

204 Bi-IMTCGS*RHDC22» 

205 ІЕК%В121393ТНЕМІРК%В1<14140070208 

286 РОКЕК+Е1, 42 

288 MEXTL 

289 МЕХТК 

290 Rz1883:21:4142225: 425-224: K34=226 : 6070292 
291 Н18-192:524-196:538-198 

292 Ре! 186 :4<1836: 713 "дййййй": РОКЕХ1 И, 129 : РОКЕК2А, 24 : РОКЕХЗА, 16 
394 REM 

318 6505081008 

328 ШЕРЕЕК(А+С12 

328 ЇЕШ1СЭЕЙНИЛ 2 4200Т0340 

330 IFCIZITHEHCI-4G0:GOTO337 

332 IFCI=48THENCI=-1 : GOTO337 

334 IFCI=-1THENCI=-49 : 8070337 

336 1ЕС1=-4@ТНЕНС1=1 

337 U1-PEEKCR*CI? 

338 IFU1-RÜRUI-42G60TO0238 

348 A=fA+C1 

345 ІЕРЕЕК<Н)-81050Т702000 

347 ІЕРЕЕК<Н2-8?ТНЕМН«Н-С1:7-5: 05070602 

358 POKEA: 87 

364 FOKEH,32 

370 HeG:G=F :F=E :E=A 

602 FÜRT1=1T0S2:MEXT 1 

610 РЕІНТЕІОНТ+СТІФ, 2) ІШІ"; : IFTI$=" 00831"00704500 
694 GET 

тва IFG+="A"THENX=-49 : GOTO724 

703 IFGf-"Z"THEHMN-40:GO0TO?28 

788 IFG£z"H"THEMA--1:GOTO?28 

710 1Еб%="М"ТНЕНИ=1 
720 IFPEEK¿(F+#><>F60T0830 
ДЕЕ а e coe 5010750 


1F4=-1THENX=49 
758 IFPEEEKCP*42C2RGÜTOSSE 
IF%=1THEH#=-46 : 05010830 
:сотовза 
220072520 


838 IFFEEK£P+“)=87G0T02908 


831 ЇЕРЕЕКСРЕКО-4200Т04000 


832 ТЕРЕЕКСР+ИЗ 81 ТНЕНИ Met : 4124: VeU "Us : Tell) "Ell 507038 


835 Р=Р+:РОКЕР, 81: РОКЕН, 32 
840 Wed "Val: ПЕТ: ТЕР 

200 с0тоз88 

тава Wed) ` ТЕ <вСОТОТА4й 
1802 1-0 

1883 Г1-ІНТ(ФЖЕМП(52%12 
1085 IFC1=2THEH Ci-4ü 

1924 IFCI-STHEH С 
1838 IFCI-4THEHC1-- 
1832 IFL=-C1GOT01883 

1933 v«1 

1040 RETURN 

2404 P=" JE YOUS HEURTE!":GOSUE18888 

2085 б070п4й1й 

2848 P$-"PRS DE CHANSE ЛЕ GRGHE":GÜSUEigGGB:FOÜRI-1TO28OG8:HMENT 
2842 P#="POUR REJDUER,PRESSER UHE TOUCHE" : 5050810008 

2458 GETAS:1FA#$=""GOTOZ45E 

2460 00Т03 

3808 P=" WOUS ME HELIRTEZ" :GOSLE 16032 

3018 Е1-Е141:1ЕЕ1-5800Т03830 

38280 GÜTO4 

3838 P$z" ERAVO! VOUS GAGNEZ ":005В10080:ЕОЁ1-1ТО2000:НЕКТ 
3848 РБІМТ:РБІНТ"ЖЯММММИВВВІРГІІЕ REPRRTIR PRESSEZ UHE CLEF" 
3858 BOTO 2450 

4080 P#="VOUS HEURTEZ UN ОВБТНС1Е!":б050В 10800 

4818 D1-D1-*1:IFD1-58Gü0TO02848 

4828 50704 

4588 P=" LE TEMPS EST FIHI":GÜüSUB188üG8 

4582 боточата 

5000 REM CHOIX DES PRRRMETRES 

5200 РЕТНТ:РЕТНТ" 2  PRESSEZ:- L POUR LENT 

5210 PRINT" Е POUR RAPIDE 

5220 GETR£:IFR$-""GüTOS228 

S238 IFR$-"L"THEHSZ-58:GüTOS4G8 

S248 IFH£-"R"THEHS2-1:GÜTO0S4680 

S258 GOTOS224 

5408 РЕТНТ: РЕТНТ: РЕТНТ: РЕТНТ 

5402 PRIMT"PRESSEZ:- M POUR UN JEU NORMAL. 

5484 РЕТНТ" - D POUR DIFFICILE. 

5496 PRINT" - Т FOUR TRES DIFFICILE. 

5408 GETR#:IFR#=""GOTOS40S 
5409 ТЕН <"Е"ТНЕН Le) :60705450 
5418 IFA$="N"THEHL1=4 :G0OT05450 
5420 IFHf$-"D'"THEHL1-6:GDTOUS4S0 
S438 IFA$="T"THEHL1=8 : GOTOS454 
9449 50105406 

5450 RETURH 

100808 FR IHT" ЛИ МО НИ В Ви В А Ви 
18010 РЕТНТ "НИВИ! РЕ: PRINT 
тайга PRIHT НИ 


19439 FORI-ITO186 ExT 
18490 RETURN 
COMMENTAIRES : Ligne 100 à 128 : affichage de tilt 1985 
Ligne 130 à 209 : affichage des 
Ligne 2 : saut à la routine de choix des obstacles 
paramètres Ligne 290 à 292 : mise à jour des 
Ligne 3 : initialisation des variables variables 
Ligne 5 à 40 : tracé du décor à l'écran Ligne 300 à 610 : déplacement de la » 


85 
КА у= ее 1 е RS шс. Meer лы 


chenille Ligne 4000 à 4020 : test de collision 


Ligne 650 à 710 : test du clavier entre vous et un obstacle 

Ligne 720 à 1033 : boucle principal du Ligne 4500 à 4502 : le temps limite est 
jeu atteint 

Ligne 2000 à 2005 : test de collision Ligne 10000 à 10400 : affichage d’un 
Ligne 2040 à 2460 : fin du jeu message 


Ligne 3000 à 3020 : test de collision 


COMMODORE 64 


POM РОМ РОМ POM... 


Empêchez une chenille de grandir 
en tirant sur ses pommes préférées et sur ses nouveaux 
anneaux. 
A = gauche, S = droite, et L = feu. 


-18808-0:НЕХТб 
СКЕ1105<ІМТСЕМІе12Ж8409,1608:МЕЗТК 


:POKEZ 19,81 


-OTHEH4B 
BsPEEKCR-4ü2 : IFGz32THEN3S 

T=0 : POKER. 32 : GOTO5A9 
IFF<1864THEHT=80 : POKER, 32 : GOTO4@ 
POKER, 32: R=R-48 : POKER, 34 

ASPEEK 61972 : IFA=64THENSG 
IFA=1ATHEH1 GA 
ТЕН 1 ЗТНЕНЕВЯ 

CH ТЕН<4 2 ТНЕНЗЯВ 
за сотоза 

ааз ВЕ 


3THEN3B 
4 13 «> З2ТНЕНЗЕ 

224 POKEX*,32:#=#+1 ` БОТОВ 

300 Т1ЕТ=1ТНЕНЗ@ 

319 T=1:FR=#-40 : POKER, 38: GDTO3O 
SE 


=5C+1 


ТЕБ=255ТНЕНРОКЕР-— “48, ER 3 
534 IFG=S1THEMPOKER-49, 169: SC=5C+30: СОТОРЯВА 
зай GüTO4G 


618 М=М+1:1ЕМ>ФТНЕНМ=1 

611 1Р2СМ2Э2023ТНЕМ2012-1875 

бі? ТЕ И? <ВТНЕН? За 

624 пяРЕЕКС2 (2 12 

638 ІБ0-З2ТНЕМРОКЕ2(М3,32:2(М2-2(М3%1:РОКЕ2(М2,81:007079й 
бай ІРО-ЗФТНЕМРОКЕ2(М2,1608:5С-80%1:2<И)-0:00Т0790 

658 ЇЕРМ-65ТНЕН2100 

668 РОКЕ?<Н) , 32:22 +2<и3+4й:РОКЕФ<И? 81 

798 ІҒИ-ЭТНЕНИ-д 

791 RETURH 

2000 R-R-48 

2818 FORP-BTOM 

2020 IFR=Z6P)THENZ(P)=0 :ЕОКбЕРТОМ: 2(0272<0+1) :NEXTG:H=N-1 :GOTO2881 
2820 МЕХТ:б0Т040 

5031 FIzü:FOÜRP-1TOM:FISFI*ZCP) :NEXT : ТЕЕТСФВТНЕНЗВ 

2032 IFM=1THEHM=9:H=M:G0T02835 

2033 МеМ-1 

2035 FÜRP21TOM:Z£P)-1080-P- (20-2340 : POKE1964* INTCRNDCL28802 , 168: НЕХТР 
2836 GOTO 31 

2180 РЕТМТСНЕФС147):РЕЇМТ"У08 ETES MORT 111" 

2118 PRINT"VDUS AYEZ REALISE LE SCORE DE "/50:" POINTS" 
2120 БЕТА: 1FA$=""THENZ120 

2122 RUN 


-1 

COMMENTAIRES : chenille et un missile puis augmente ie 
score si nécessaire 
Ligne 1 à 20 : initialisation des Ligne 420 à 796 : déplacement de la 
variables chenille 
Ligne 40 à 220 : test du clavier et Ligne 2000 à 2032 : la chenille est 
déplacement de la balle touchée 
Ligne 300 à 310 : déplacement du missile Ligne 2035 : la chenille est morte 
Ligne 500 à 540 : teste la collision, la Ligne 2100 à 2130 : fin de la partie 
COMMODORE 64 


SUPER-BABALLE! 


Dirigez une balle vers sa cible 
grâce à CC déviations Jucucteusament choisies. 
- droite E B= m gauch e. 


1 POüKES3288,8:PÜKES3281,8:PRINT" 
2 FORI=1924701063 : POKET ; 192 :HEX ORISI063T01063+24#48STEP40: РОКЕТ, 102 
4 РОКЕТ-1,182:МЕХТТ:ЕПЕГ-1985ТО2022:РОКЕГ,102:НЕХТГ 

18 2-106541МТЄЕМПС1ЭЖ38241НТ СЁМПС12Ж222Ж40 

20 х-1465:9<1: РОКЕ2, 87 :TI$=" 000000" 

21 РОКЕХ,81 


87 


ПЕТА : ТЕВЕ<""ТНЕНФУ 
A" THEN4 GE 
ТЕНЕ< "5 "ТНЕНЗЙЯ 


510 РОКЕК+ И, 78: GOTOZA 


кът с вотогаа 
"ad GUTT Op 


1 
188 PRIHTCHR$CI4?):PRINT"BRRVO, VOUS AVEZ GRGHE":PRIHT 
PRIHT:PRIHT:PRIMT"VOTRE SCORE EST DE ":1МТСС9999-Т13/1083:" POINTS !!!" 
FRIHT:PRIMT:PRIHT"VOLLEZ VOUS REJOUER 777" 


114 

120 

i38 BGETH£:IFR£-""THEH138 
140 ТЕНЕ<"0"ТНЕНЕИН 

158 ТЕН <>" Н"ТНЕНТ За 

154 EHD 

сай IF'=1THEHY=40:GDTO240 
218 IFY=~1THENY: :сотог4а 
228 IF T=48THENY=1 : 0070240 
230 Ф--1 

240 квант: 007029 

388 ЇЕТ-1ТНЕМҮ--40:00Т0240 
318 IFv--1THEHv-48:GOTO248 
328 1ЕУ-4йТНЕНҮ--1:00Т0240 
320 Те1:00Т024й 

490 ТЕРЕЕКск+ чо 182ТНЕН2Я 
485 ТЕРЕЕКСА+ТО = 

410 РОКЕМФҮ,? 

S00 ЇЕРЕЕКСИФ 

909 ЇРРЕЕКСИФҮЭЕеӨГТНЕМЇЙЙ 


REM POUR RALENTIR CE JEU,IL SUFFIT ПЕ TAPER ^26 FORR-1TO3B:MEXTR 


(бесінді 


COMMENTAIRES : 


Ligne 2 à 4 : affiche le cadre du jeu 


Ligne 10 : choisi l'emplacement 
cible 

Ligne 2 
Ligne 2 


affiche la balle 
24 : test du clavier 


ви -- 


Ligne 


29 à 80 : 


collisions 


Ligne 
Ligne 
Ligne 
Ligne 
Ligne 


de la 


Sauvez les habitants d'un immeuble en flamme. 
Votre brancard se déplace 

grâce aux touches M pour aller à droite, 

et А pour aller à gauche. 


FIRE - 


100 à 160 
200 à 240 
300 à 330 
400 à 410 
500 à 510 


test des différentes 


fin de la partie 
rebond 1 

rebond 2 
déviation 1 
déviation 2 


8 5С=5С+@ 

1 POKES3289, 9: POKES3281, 8: РЕТНТ" 1" 

2 RESTORE 

3 00508 2888 

18 ЇЕН-ӨОТНЕНВ-160:8-1802:0-87:0-81:Е-78:Е-77:0-183:Н8188:4-32:1ЕМ-0ТНЕНМ-1 


718 
800 
819 


РОКЕ1256, М+45 
PRINT"ZRBBBBER 
R1-1387:F12128 


11144411111 ан 
ш1267:02-1347:Е1-1306 


35 ТЕВ1<ФВТНЕНЕВ 

48 В1-1833:Е2-1834:82-1839:01-1793:02-1872:04-1873:02-1799:Е2-1838 
50 05-1878:06-1879:Н1-1835:Н2-1836:Н3-1837 

60 POKEB1,B:POKEB2,B:POKEDI,D:POKED2,D 

70 РОКЕЕФ, E РОКЕЕФ, Е :POKEG3, G: POKEG4, G 

За POKEGS,G:PÜKEGG. G: POKEH1 , H: РОКЕН2, H 

98 POKEHS.H 

100 REM 

119 2-РЕЕКС197) 

128 1Е2<64ТНЕНЗВЙ 

138 1Е2=10ТНЕН2@@ 

140 IFB1-1845THEH388 

158 POKEB1,':POKEB2,'":POKEDI,'':POKED2, т: POKEEZ, 7: POKEF2, +: РОКЕОЗ, 7: РОКЕО4, ЧУ 
168 POKEGS, +: POKEG6 , т: POKEH1, У:РОКЕН2, т: РОКЕНЗ, + 

170 В1-8146:82-8246:01-0146:025-0246:Е2-Е246:Р2-Е246:03-0346:04-0446 
1880 05-0546:06-0646:Н1-Н146:Н2-Н246:Н3-Н346 

190 сотозав 

200 IFB1=1833THEH300 

218 POKEB1,':POKEB2, +: POKED1 , Y: POKED2, v : POKEE2, +: POKEF2, Y: РОКЕСЗ, V : POKEGA, Y 
220 POKEGS, Y : PÜKEG6 , + : POKEH1, т: РОКЕН2, +: РОКЕНЗ, т 

230 ВЇ-В1-6:82-82-6:01-01-6:02-02-6:Е2-Е2-6:Е2-Е2-6:03-03-6:04:04-6 
240 65=65-6 : 66=66-6 : H1=H1-6 : H2=H2-6 : H3=H3-6 

259 сотозай 

200 POKER1 , *:POKEC1, У: РОКЕЕ!, :POKEF1 , v : POKEG1,  : POKEGE V 

318 READS 

320 ТЕН1<1796ТНЕНЗВВ 

321 IFRi-1882THEHGBB 


322 IFR1-1808THEH?88 


IFR1-1697THEH8GG 


230 A1=A1+S:C1=C1+S:E1=E1+S:F1=F1+S:G1=61+5 :G2=02+5 
240 POKER. A:POKEC1 , C:POKEE1,E :POKEF1,F : POKEG1 ,О: РОКЕО2, G 


501060 
1FH2=1836THEH339 
M=M+1 
IFM=4THEHEHD 
РОКЕ1256,М%48 
GOTO2 


EHD 
IFH2=1842THEH330 
сотоз1а 
1ЕН2<1848ТНЕНЗЗа 
5070510 

SC=SC+1 

GOTOZ 


1800 DATAS,283,291,-209;-158,123,241 


1010 1АТА-113,-78,82,121,-79,-77,3,42,й 


2000 РЕТНТ СЛ" 
2010 PRINT "ADD —— ——3 " 


2820 PRINT" |m m m ИШ ИН! — ||- CEERESERI 1—:—— 18 
Bn" 


Ц 
IBNI | — — 1 ШИ  !----1 ШИ !г-г-!" 
Ш ———— Ши Г-- |С 


2989 PRINT"I:!— | 
2048 PRIMT" | г-а 11 
2050 PRINT" 1 — '— IIl 
2968 PRINT" 22 


2070 PRIMT"ZRBESBBBEBHOMERE ПЕ RESCRPES : 


HII Bas !" 


2100 РЕЇНТ"ИЖ | "E 
2998 PRINT" 
2999 RETURH 


COMMENTAIRES : Ligne 230 à 260 : mouvement des 

LE he Es : brancards à gauche 
Ligne 0 à 50 : initialisation des Ligne 300 à 350 : test de collision 
variables Ligne 5004 810 : remise à zéro aprés 
Ligne 60 à 90 : affichage du décor à collision 
1“ всгап Ч Ligne 1000 à 1110 : données du jeu 
Ligne 110 à 130 : test clavier ә Ligne 2000 à 2060 : affichage de 
Ligne 140 à 160 : affichage des dessins l'immeuble 
Ligne 170 à 190 : mouvement des Ligne 2070 à 2999 : affichage du texte 
brancards à droite du jeu 

COMMODORE 64 


ROBOTS 


Des robots vous poursuivent dans une piéce aux murs 
électrifiés. Seule solution pour survivre, 
les pousser contre les murs. 
7 = haut et gauche, 8 = haut, 9 = haut et droite, 4 = gauche. 
6 — droite, 1 — bas et gauche 
2 - bas, 3 - bas et droite. 


4 РОКЕ 53289, 12:POKES3281, 13 

S РЕ1НТ"1й" 

10 PRINT TRBC172;"ROBOTSNN" 

28 РЕТМТ"У005 ETES DANS UNE PIECE DONT LES MURS" 

30 PRIHT"SOMT ELECTRIFIES.IL Y A СІНО ROEOTS DE PROTECTION AVEC VOUS," 
48 PRINT"ILS VEULENT VOUS TUER.ILS SONT DESSINES COMME CECI:" 

SB PRINT"^*';VOUS COMME CECI:^*^ ET LES CLOISONS ELECTRIFIEES: ^x^." 

60 РЕТНТ"УОТЕЕ SEULE CHANCE DE SURVIE EST QU'ILS TOUCHENT LES CLOISONS." 
та PRIHT"POUR BOUGER: 7.8.9" 

88 PRINT" 4.% 
98 РЕТНТ" 1.2.3" 

100 РЕ1НТ 

118 РЕ1НТ"5=НЕ PAS FOUGER" 

120 РЕТНТ"АЕАВЕНООН, SITUATION SANS ESPOIR" 
138 PRINT"G=SAUT GIGANTESQUE" 

148 РЕТНТ 


150 
180 
19 
218 
220 
230 
240 
258 
260 
278 
280 
290 
295 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
488 
418 
420 
430 
440 
450 
460 
470 
488 
498 
500 
520 
530 
535 
540 
558 
560 
570 
580 
598 
680 
619 
628 
638 
640 
641 
642 
643 
644 
645 
649 
550 
690 
700 
718 
728 
738 
748 


PRINT"VEUILLEZ PATIENTER UNE PETITE MINUTE !!" 
р Н(230,302,81(30,302,Н(122,1<52,М(52,11<52,М1552 
RI 

FOR B=1 TO 30 

FOR C-1 TO 30 

WEIHTCIONRHDCID 

IF Х=5 THEN 270 

А<В,С)зА8С<" "> 

GOTO 280 

RCB, C) -RSCC"W" 2 

НЕХТ C 

НЕХТ B 

PRIHT"Z" 

FOR D-1 TO 18 

ACD, 12-R8CC" 4" ACD, 202 -RSCC" "2 
HEAT D 

FOR F=1 TO 29 

ROGL,F2SRSCC"K"2 :RCI8,F2-RSCC"R"2 
NEXT Е 

GOTO 414 

H=INT(2+8#RMDC 1 ) à 
I=INTÉ2+18#RND6 12 2 

IF Я<Н,12<295С<" ")THEM 378 
RETURN 

GOSUE 370 

HCH, I2 -RSCC"X" 5 

J=H:K=I 

FOR H9=1 TO Š 

созив 378 

ЯН, I2-RSCC" "5 

LCH2)7H:MCN927I 

НЕФТ N9 

FOR В1-1 TO 18:FO0R В2-1 TO 20:Н1(В1,В22-НСВ1,822:МЕКТ В2:МЕХТ ВІ 
FOR В1=1 TO 5:11(В12-1<В12:М1<В12<М<В12:НЕЯТ B1 
J1=J:K1=K 

79-0 

РЕТНТ" А" 

FOR 0251 TO 18 

FOR B2-1 TO 20 

H$=CHR$(ACDZ, B2) à 

PRINT Н%; 

NEXT B2 

PRINT 

НЕХТ D2 

IF Ү9С210 THEN 648 

РЕЇНТ 

GOTO 890 

ЕТТ: 1Ет9ф<""ТНЕНЕ4Й 
IFw9$z"R"THEM 1230 
IFv9$-"O"THEM 868 

ТЕу9 "5" THEN 1870 
ҮЗ-Н5С(79%)-48 

ІЕТ9<0087929ТНЕН 640 

PRIHT "34" 

JezJ:K2-K 

он va GOTO 320,800, 780, 840, 390, 760.700, 720,746 


J=J-1:K=K+1 
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758 GOTO 299 

гей К=К+1 

rra GOTO 890 

788 J=J+1:K=K+1 

тэй GOTO 898 

gua J-I-1 

810 GOTO 294 

820 J=J+1:K=K-1 

830 GOTO 890 

848 К=К-1 

сов GOTO 339 

568 РЕТНТ" 3" 

865 Н47,Ко-з2 

SCH J-IMTCZ48XRHDC122 

880 К-ІМТ(2%18ЖВЫПС122 

850 IF RCI.K)-RSCC"X")THEN. 1268 

908 RCI2,K2»-RSCc" ri 

918 ASJ,KI=ASCC "ж" 

928 GOTO 1@7@ 

938 REM MOUVEMENT ROEOT 

948 IF DCH, Vi=ASCC"X"DTHEN 1848 

950 кани: чаят 

968 W-SGMCI-H2 :'-8G8NCK-v2 

DCH Манана: Wed 

988 ТЕНИ, »-RSCC"X")THEM 1050 

928 IF AK, TI=ASCC" "ATHEN 1020 

1000 НЄк2.Ү22-850С" ") 

1818 RETURH 

1828 DCH, Wiepët cr) 

1959 В<х2,т2›)=В5С" "5 

1848 RETURN 

1850 09-99 

1868 КЕТПЕН 

1070 PRINT'A":FOR H3=1 TO 5 

1080 «+ «ня: "ЕМСНЯЗ 

1090 69-8 

1198 GOSUE 948 

1118 IF 59428 THEN 1248 

1128 LéÉHGI=X: MENS) V 

1138 MEXT МӘ 

1148 FOR НЭ-1 TO 5 

1150 IF Н(1<М92,М<М922<28800" "УТНЕН 1170 
1168 ALMA, СМЭ) 2 -RSCC" "5 

1178 MEXT не 

1180 FOR H9-1 TO 5 

1198 ТЕ R&LCH9),MCNS220«2 Н5СС"И"ЭТНЕН 548 
1280 MEXT МЭ 

1210 PRINT"ZMOUS AYEZ DETRUIT TOUS VOS ENNEMIS .VOUS DEZ DONC GAGNE" 
i228 GOTO 1290 

1230 PRIHT"ZIDOMMRGE., HEIN?" 

1240 PRIHT"OH##VOUS AYEZ ETE DETRUIT FAR UH ROBOT CHANCEUX###" 
i258 GOTO 1298 

1268 PRIHT'"CHRUT VOLTRGE!!!1!1!!!!!1111" 
1270 РЕТНТ"##### ZAP ЖЖЖЖЖУОІ5 ETES MORT!!" 
1280 PRINT 

1298 ТНРОТ"ОНЕ AUTRE PRETIECUZH»";H9$ 
1310 IF МЭРСЭ"О0"ТНЕМН 1488 

1320 IMPUT"MEME POSITIOHCOA/H2";H9£ 

1348 IF н9+<2"0"ТНЕНТ ЗА 

1345 РЕТНТ"П" j 
1324 FOR B1-1TO 10:ҒОЕ В2=1 TO 29:А<В1,В2)=А1В1,В2):НЕХТ В2: НЕХТ Bl 


1368 FOR 8151 TO 5:1(В12-116В1):МСВ12-М14В1):МЕЯТ El 
1388 J=J1:K=K1 
1398 GOTO 530 
1400 END 


COMMENTAIRES : Ligne 410 à 490 : enregistrement du 
+ tableau 

Ligne 500 à é30 : affiche le tableau 
Ligné 4 : couleurs Ligne 640 à 645 : test du clavier 
Ligne 5 : efface l'écran Ligne 650 à 690 : aiguillage du 
Ligne 10 à 150 : instructions programme 
Ligne 180 : dimensionnement des tableaux Ligne 700 à 850 : mouvement du joueur 
Ligne 210 à 290 : création du terrain Ligne 860 à 1010 : affichage et testde 
Ligne 295 : efface l'écran position 
Ligne 300 à 350 : dessin des murs Ligne 1020 à 1200 : recherche 
externes Ligne 1210 à 1280 : test si le joueur a 
Ligne 360 à 400 : sous programmes de perdu ou gagné 
recherche d'affichage Ligne 1290 à 1400 : fin de partie 

COMMODORE 64 


Quatre circuits, quatre challenges, 
et, entre vos mains, 
le volant d'un bolide aux performances époustouflantes. 
Mais attention, vous n'étes pas seul 
n piste. 
Que le meilleur gagne! 


18 РБІМТ"ТТЕВ BRERRRRE-HCEE " 

11 REM CHOIX DES PARAMETRES 

20 INFUT"EHOMBRE DE VOITURES <1 A 42";M 

38 ТЕНСУ1ВНОНФ22АНОНС>ЗАНОН< 24 ТНЕНРЕТНТ" TI"; : GOTOZG 

48 IMPUT"NGUEL CIRCUIT CL Я "jX 

50 ЇЕХС218МШХСУ2ННШХСЭЗНМХС24ТНЕНРЕТНТ" TI"; :GüTU4G 

ep ІМРЫТ"ЖСОМВІЕН DE TOURS (1 A 9)";L 

Үй IFL£10RL>STHENPRIHT "TT"; : GOTOSA 

80 DIMEXCN CHCH); NACHI PCND  GCND 4 WACND DALBY GCH LEG , B6 422) Té 42 

Эй FORI=OT042:READSHÉ 1) : КЕНОТЯ<Т) : IFTACI ЗНТНЕНЗА С 1250: Tat leg 
HEXTI : FORI=GTOS : READDX< 1) :NEXTI 
ШНТНй,0,0,й,8,0,0,0,0,0,0,0,0,0,й,0,-1,1,1,1,0,08,0,й,й,08,0,й,й,0,0,й,0,0 
ІНТНй,0,0,0,0,0,0,0,0,0,0,0,0,й,0,й,0,й,0,0,й,0,0,0,0,0,0,0,-1,3,1,.3,-1,2 
ТВТНй,й8,9,8,-1,4,0,й,0,0,1,2,0,0,1,4,0,й;0,1,41.4й,39,-1,-41,-40,-39 
PRINT "ат" : ONHGOSUE 19834, 10020, 19619, 1ййй@:РЕ1ТНЧТ" И" 
REM BRANCHEMENT HU ВОН CIRCUIT 
оннвовивгааза, 20020, 20019, 20000: РЕТНТ"#МРОЦЕ COMMENCER AFFUYER SUR RETURN" 
GETA$ : 1FA$=""THENI Фа 
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[ 188 ТЕН5ССН#2<>13ТНЕН17Йй 
198 РЕ1НТ"П"; гоннвозивгвйза, 20020, 20010, 20000: ON4GOSUB18010, 2018, 3010, 4018 
200 5413-1120:0(29-1725:0(30-1113:05(49-1120:РОКЕб(Х2,12? 

210 FOKEGCKI+49,127 :LC12-21248:LC22716805:L (3271233 :L (4521240 

220 PUKELCX2-3,14:POKEL CH) -2, 87 :POKELCX2 1, 58: POKELCA2 , 96 

238 POKELCK2I+36, 20 : POKELCX3+37, 15: POKELCX2 +38; 21: POKEL C2 39, 18 

248 ЕОКТ<1ТОН: РОКЕССК)+Т, 128+1: НИС 1248: POKEL CHO *4BU* I, НИСТУ: НЕХТТ 

245 FEM DEPLRCEMEHTS 

250 FORI=1TON: МА 15=-1 ВиК) 32 бе INT «Н-1202): PCI J=GCK)+6+1+40HC2#G+I-N+1) 
264 РОКЕР(СТ?, І:МЕЯТІ:ЕОЕІ= 1тогав+гавожносто : GETR$: HEXTI 


278 ЕОКТА1ТОН: 
I jRIGHTSCTIS, 4); 
5С6852-48 


288 РЕТНТ" а 

298 Dep СЕТА: IFR$<> 

388 IFISGRNDICASTHENVZCTARCIOQO)SCVACTACIOO)*SACIODORHD? 

318 ЕОЁТе1ТОН:065124РС1248ИСУЙС15412:04С19-РЕЕКСОСТЭЭ 

328 IFCACI)€>S2ANDCX( 12<2127ТНЕНЗВВ 

328 РОКЕРСТЭ,ВИС17:РС1250617:8И(12802(17:РОКЕРС1»,12841 

348 1ЕВИ(125127ТНЕННЯ« (eh 19 +1 : POKELCX)+4@+I, НИСТ): IFMZCI)SL*48THEN368 
358 МЕяТІ:б0Т0280 

368 Р=Р+1:РОКЕРСІ?, 127 :РСІ) = (Х2+1:РОКЕР«12,128+1: РОКЕРС1)+4й,Р+176 
370 ВисІ)=32:ІРҒРСНТНЕМ289 

388 GETAS: IFA$=""THEN3S9 

398 IFRSCCR$2S213THEN3288 

400 CLR:RESTORE : GOTO14 

1000 REM CIRCUIT 1 


1010 РЕТНТ"++++++ ++++++" S; 
1020 PRIHT"+++++/ АН; 
1838 PRINT" EEN 


1040 PRINT"+++ 7 ММ 
1050 PRINT" ++” нн нн. HH" j 
1060 PRINTEZ нн нк ыы ыы ыы +"; 


1070 PRINT" | ннен нн ын ыны |" 
1888 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1090 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1106 PRINT" | | +++++++++++++++++++++++++++++e++ | | 
1118 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1120 PRINT" | | ++++++++++++++++++++++++++++e+++ | | 
1130 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1148 PRINT" | | ++++++++++++++++++++++++++++++++ | 
1158 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1160 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1170 PRINT" | | ++++++++++++++++++++++++++++++++ | | 
1188 PRINT" | S++++++++++++++++++++++++i+++++++Z | 


1198 PRINMT'- ннен нын ыы ы иж") 
1200 PRINT M 44 bd ыы ыы ыы НИ ++"; 
AR TO PRINT ЕНТ NU алты сы а l I жен; 


1220 РЕТНТ"++++>, Галаа] 
1238 РЕТНТ"+++ ++», ++"; 
1248 РЕТНТ"++++ ++ +++++"; 
1258 RETURN 

2000 REM CIRCUIT 2 

2010 РЕЇНТ"++++_______+++++++++___________++++++'", 
2020 PRIHT"+++/ NT++++++ И Анна"; 
2038 РЕТНТ"++/ хак “жең; 
2048 PRINT"+/ | +++Z Хе"; 
2058 PRINT" | ^ No depu ETT а DIN a q 
2068 PRINT" | /++++++ | |ә; t+++++++++++++N SUS 
2070 PRINT" | | ++++++Z ж, Z++++++++++++++++s 1"; 
2080 PRINT | |+++++/ я; жə. |"; 
2090 PRINT" | |++++/ жу 7e SEFERE 01%; 
2100 PRINT" | |+++/ 4 жз Ход sed A 
2118 PRINT" | 1441 ^l мө AN St Uni 
2120 PRINT" | 1441 141 1++/ Zt+++++++++N | ++x И!) 
2130 PRINT" | 1441 |++N ^ у+++++++++++ | 14411411 
2148 PRIHT" | [++ | | t+++++++++++ | 1441 | +£; 
2150 PRINT" | [++ | S+++++++++++++++++Z 13411 +"; 
ZIBÓIPRIMT"-[ lb қазы аа уран рар 
2170 PRINT" | |++++\, Z++++ | | + 


[ 2188 PRINT" | | +++++% BTE ЕНІН 
2198 PRINT" | | ++++=+— +. ++" 
2288 PRINT" | N++++++++++++++++++++++++++++++7 /+++"; 
2218 PRINT'-* / /++++"; 
2224 РЕ1НТ"++\, VEIT S; 
2230 РЕТНТ" + ++», Z++++++" ; 
2248 PFIHT"++++ ++++++"; 
2250 RETURN 
3000 REM CIRCUIT 3 
3818 РЕТНТ"+++ ++ ++ ++"; 
3828 PRINT"++/ МАА"; 
3838 PRINT"+/ +++"; 


BOADUPR INTEL [чэ готту ФИ; 
3858 PRINT! | 1++++++++++++++++++++++++++++++5, Хан; 


| 
3060 PRINT" | | ++++++++++++++++. +++, x US 
ER PRINT | Ж “ж-е. |"; 
3984 РЕТНТ" ++. маж 1177 
3090 РЕІМТ"++ 12:41 175: 
3100 PRIHT"++++++++++++++++++++— h |+] |"; 
3118 РЕТНТ"+++ +++++++++++ | |+] l"; 
3120 PRINT"++/ ` PEE ES 
3130 PRINT"+/ жел із 
3140 PRINT" | ZT iri ++ | |"; 
3150 PRINT" | | ++++++++++++++ +++++ | |"; 
3160 PRINT" | | +++++++++++++++++ +++++++ | |"; 
2170 PRINT" | | ++++++++++++++__ / EEE | LU 
3188 PRINT" |+++++++++++__/ хэнннн 1177 
3190 РЕТМТ" | |++++++++__/ АА рече L dea 
3200 PRINT" | sttttt 2 Z9 9 | неу 1%; 
3218 РЕІМТ"+ Хо и Z +++++++++++Üx а ZEIT 
3220 PRINHT"++ Z +++++++++++++++ S ++"; 
3230 PRINT"+++S Z +++++++++++++++++++ S Z*++"; 


3240 PRINT dt  +++++++++++++++++++++++ +++"; 
3250 RETURH 


4000 REM CIRCUIT 4 


4018 РЕТНТ" ++ + ++++++ жеккен"; 
4820 РЕ1НТ"++/ thés +++"; 
4030 РЕ1НТ"+/ "tte хак"; 


4040 PRINT" | ИУ | е окопи ER El 
4858 PRIMT" | |* 1 | URSS 
4868 PRIMT" | |* | | | хөөж, ЭЕ" 
4070 PRINT" | || [+N хөөнө, ARN |"; 
4888 PRINT" | (41 [ck хәне менее 1"; 
4898 PRINT" | 141 |t Ен N+. 1"; 
4188 PRINT" | 141 зөнч, | Z N |+] |"; 
4110 PRINT" | 141 |+++++ S+ | |++++++++ 1141 l"; 
4128 PRINT" | 141 (зөөх, М] Sf+++++++ | DA If: 
4138 PRINT" | || |+++++++ IN St++++++ 1141 l"; 
414й PRINT" |+ | |+++++++ | |+ хөөнө | |+] Ud 
4158 PRIMT" | I+ | x OS été |+] 171 
4168 PRINT" | | ++ Attn ХРТ ізі g 
4170 PRINT" | | tt Z++++++x ttt I+ 
41880 PRINT" “же жене, SE] Od € 1 H 
4198 PRINTS нн анна. 141141 ; 
4200 PRINT" 44 S++++++++++++++++++++ | 141 1+] |"; 
E DE q МЕ Ж роуа 
4220 PRIHNT"++++ жен. Ра 


4230 РЕТМТ"+++ ++, 
4240 РЕІНТ"++++++ 
4250 RETURN 

3999 REM TOUCHES DE CONTI 
10000 FRIHT"CONTROLES I 
10010 PRINT"CONTROLESHE 
18924 РЕТНТ"СОНТЕОСЕЗУВВ 
тайза PRINT"CONTROLESMINNENHFOUR A П":КЕТШЕН 


гайда PRINT"NMTC-D-2'M" ; 
200198 PRIHT"MOC-C-2FN" ; 


Галаа жең; 
зээлж" 


20020 PRINT"NMAOC-B-2HM" ; 
28434 PRINT"RBC-R-^3H" : РЕТПЕН 


READY. 

COMMENTAIRES : Ligne 170 à 240 : Déplacement des 

voi tures 
Ligne 1 : Initialisation des couleurs de Ligne 245 à 400 : Tests de collisions 
fond et d'écran Ligne 1000 à 1250 :Tracé du circuit I 
Ligne 10 à 70 : Choix des paramètres Ligne 2000 à 2230 : Tracé du cireuit 11 
Ligne 80 à 90 : Initialisation des Ligne 3000 à 3230 : Tracé du circuit III 
variables Ligne 4000 à 4250 : Tracé du circuit IV 
Ligne 140 à 150: Branchement aléatoire Ligne 10.000 à 20030 : Touches de 
vers un circuit contróle 

COMMODORE 64 


TANKS 


Lancez votre char dans une course infernale. 
Votre but : rejoindre la base avant le char ennemi 
tout en détruisant le plus de cibles possibles. 
Pour le joueur numéro un, 6 - droite, 4 — gauche et 5 = tir. 
Pour le joueur numéro 2, 
8 = droite, 0 = gauche et 9 = tir. 


10 HI-1533:RRA-225:LRX-97:KZ RAD: Va=dÿ : DIMB(2) :DIMCAC2) :K12281:K2X-87 
15 Hei Leg 042226 :URX=98 


2764:D42-1:951-21914: D1Z-1:T14Z-8 
7 REM INITIRLISRTIONS 


20 POKEAD-1, RE: POKEAD, Ki: POKEAD+1 Е: POKEAD-YX, ЕХ 

25 POKERIMVE,LAZ 

38 ТРЕФС"4"АНПЕЗС> "Е "АНПЕФС>"8"АНПЕФСО "8"ТНЕНРОКЕВО+МИ-НХ, LX: РОКЕНО+ МИНИ, Lx 
40 RETURN 

50 м=40 : POKEAD, Ка: РОКЕВШ+ МИ, 02: PÜOKERD-1Z , URZ : POKEAD+#%, НЕХ 

55 POKEAD-K4, LZ 

Sr REM ANALYSE DES TOUCHES ENFONCEES 

68 JEE" AMET АНПЕФС> "В EE "а "ТНЕКРОКЕВО-Хи- МУ, РОКЕНО-ХИЖМИ LA 
62 RETURN 

70 R$" - 

TS РЕ1НТ"Л"Е#; 

88 РЕТНТ:ЕОВТ<1Т023:РЕТНТ" 9 ШиВВВ! 
Эй РЕІМТЕ; "m" 

196 FORIS1TO1B:ZFZ-1*IMTCP*RNDC222 

183 1FI=1ANDZF4=370R1=1 ANDZF #=1G0T0198 
185 FORK=1TOZF# : PRINT "M"; :NEXT : PRINT "ЖИ" 
119 МЕХТІ 

L из PRINT" ai" 
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вера ": HEST 


115 FORI-1TO1B:ZFZ-1*IMTCS? *RHDC22 2 

128 FÜRKSITOUZFZ:PRINT"M"; :HEZT:PRIHT"*E" 

125 MENTI 

148 505МВ108:Т-ТІ 

198 PRINT"#";"4 CANON 1 

151 РЕ1НТ" ЖЕ ЕТЕТ 

152 РЕЇНТ"ЮМ САМОН 2 

153 1ЕВС1?= 180ЕВС23-105010738 

154 ІЕР>ӨТНЕМР-Р-1:ІЕР-ФТНЕНК1% 

155 ЇРОРЙТНЕМд-0-1:1Ей-0ТНЕНК2 

158 бЕТЕФ:ІҒЕФ-""І3070185 
"&"RHDG-GTHEHGOSUB18688:GOTO15G 

ANDP= ЕОТНЕНТ AA їїйе04-1-4ж(508МС Й-17-1):005ШВ788:00Т0150 


Zeil: DuDz*l-4RIMTCDzZ4) : GOSUE? GG : GOTO158 
1:60808598:6070158 

12:1: GOSUB1488: GOTO158 

185 IFCTI-T2)>26THENGOSUE206 

199 5070150 

200 T2-TI:OHDXGOSUBZ05, 228, 2180, 238 

202 RETURN 

285 IFPEEKCRD-G0) -LXRNDPEEK(RD-39) «L'IRNDPEEKCRD-41) LITHENTD«RD-40: eg 6050820 
206 RI 

218 IFPEEKCRD*B8) -LZRNDPEEKCRDA41)-L4RNDPEEKCRD*33) 2LZTHEHRD-RD-*40 : V4--40: GÜSUEZ 


cH TIRS * "ZZ<1>"MH TOUCHES" 


Ж "24622" TOUCHES"; 


215 RETURN 

220 Чи=40 

225 ДИНЕВ Сара EAN ЛЭН =LXANDPEEK (AD+41 )=LATHENAD=AD+1 : 44=1 : 0050850 

227 КЕТШІ 

234 IFFEEK(RD-2)=LZRHDPEEK¿RI-41)5=LZ#RNDPEEK(RID+39)=LZTHENRD=RD-1 : 5-1 : GOSUBSE 
H 


535 REM ОН TOURNE 

S48 RETURN 

538 Ciel 

600 00508500: IFD*=20RD#4=460T0624 

618 FORI-2TU11:MHR-RD-I*V4: IFPEEKCGHR? CLATHENGTH=AD- 1-1 #02: 6070658 
612 РОКЕМЯ, 46: ТЕТ>2ТНЕНРОКЕИН+УА, L% 

614 NEXT : POKEUA, LX : GOTO638 

624 FORI=2T01 1 "Wëss Lex: ` IFPEEKCHR? CLÆTHENQTH=AD+C 1-1 144%: 5070650 
622 РОКЕНВ, 46: 1Е122ТНЕНРОКЕНА- ХА, LA 

624 HEXT :POKEUA, СА 


638 RETURN 
650 IFI22THEHPOKEGTH, А: GOTOeeg 
635 RETURN 


664 Z=PEEK<HA à 

665 ЇЕ25420Е2-43ТНЕМРОКЕМН,1 2 :286С)-2ИС0)4685-2Ж22ЖС3-2Ж03):ВС2-417-В8(2-41241 
678 1Е2-2250Е2-970Е2-810Е2-870Е2-930Е2-2260Е2-Э80Ё2-6400Т0682 

684 RETURN 

682 IFCX=2THENP=S : POKESA, 192:K1 
684 ТЕС; ї 
686 RETURN 

тв 00508500: IFABS(VX4 321 ТНЕНВОЗИВ2В 
710 IFRBSCHAO-1THENGOSUESO 


748 Те-ІМТ(СТІ-Т;/60; 
745 REM FIN DU JEU 
758 РЕТНТ ЯДКИ Е JEU A DURE : "T"H SECONDES 
$ 4; TRBC195; "TIRS 
(12; TRBC192; "TOUCHES 
$15; TRBC192; "TIRS 
#2) ; ТАВС 13); "TOUCHES 
ШЕ EHCORE "; : INPUTR$ 


825 FEM ON RECOMMENCE 
829 CLRE:GOTO?H 


5":0051/8500: IFP28GOTOSO? 
4: возивгвй 


386 ТРӨХӨТНЕНЕЕТОЕН 
907 SR 


GOSUB?G0 Geh 
-4Ж1МТС(013/4 
: 8700: AD=SA: D 


1 
=D2% : 60SUBS08 : AD=SA ` RETURN 


1518 В+=": тогаш!" 

1515 КЕМ MARIGNAN 

1516 КЕМ INSTRUCTIONS 

1520 PRINT"Z" 

1538 PRINT" TANKS" 
1540 PRINT:PRINT:PRIHT:PRIHT 
1550 PRINTA$ 


1568 PRINT 

1578 PRINT" 6 : R DROITE" 

1588 PRINT" 4 : A GAUCHE" 

1598 PRINT" S : TIR LES *" 


1680 PRIMT:PRIMT:PRINT:PRINT 
1618 PRIHTP$ 


1628 PRINT 

1638 PRINT" 8 : ñ DROITE" 
1648 PRINT" Ø : Я GAUCHE" 
1658 PRINT" 9 : TIR LES +" 


1668 PRINT:PRINT:PRINT 
1678 PRINT"RPPUYER SUR UNE TOUCHE POUR COMMENCER" 


1680 GET Cf 
1690 IF C$-"" THEN 1680 
1798 GOTO 5 


COMMENTAIRES : graphismes. 
Ligne 1 à 15 : Iniatialisations des Ligne 160 à 182 : Tests du clavier. 
variables. Ligne 190 à 720 : Déplacements des chars 
Ligne 20 à 55 : Analyse des touches à l'écran. 
enfonces. Ligne 745 à 900 : Fin de la partie. 
Ligne 60 à 155 : Affichage des Ligne 1500 à 1700 : Présentation du jeu. 
COMMODORE 64 


BOWLING 


Réalisez les «strikes» et les «spares» 
de votre vie 
grâce à cette exceptionnelle simulation de bowling. 
Vous jouez sur dix manches, 
à un ou plusieurs joueurs. Pour lancer une boule, 
pressez une touche au bon moment. 


1 REM COULEURS 
2 FOKES3286, 0 
3 РОКЕБЗ281,0 
4 РЕ1НТ"Ш" 
18 REM EOULIHG 64 
28 созпетава 
38 РЕТНТ ЛИМВТЕНФЕНО AU TOURNOI ШЕ BOWLING ANNUEL" 
48 IHPUT'ACOMBIEN DE JOUEURS "ОР 
S0 ЇЕРЭС1О0РРЭЭ1МТСРЭЭТНЕМ40 
55 IFPS24THEHPRINT"DESOLE,LE MAXIMUM EST DE 4 !":00Т040 
ep П1ММЕСРЭЭ,РСРЭЭ.5ИСРЭ,219 
та FORP=1TORS : PRINT" MATOUEUR #";Р;" QUEL EST TOM NOM 7" 
72 INPUT "<10 LETTRES MRAID";NfCF) 
ҮЗ Hf£CPOSLEFTfCHfCP2, 10) 
Өй PRINT "NIVEAU : 1-18 C1-NOVICE, 10=PRO)":INPUT "CHOIX: "к 
84 ІБҒАСІПЕЯ>1 ТНЕНВЙ 
88 Б<Рҙ-11-Х:МЕЯТ 
Эй ПІМРС1Ө3,5183,7С109 
199 Епех-1ТО1й: ВЕНПИСКО,УСКО: НЕХТ 
118 ІНТНЗ1,12,33,11.33,13,25,1й0,35,12,35,14,37,9,37,.11,30,13,37,15 
120 FORK=1T018: READT (ХО : NEXT 
i38 ТАТА2,5,8,11,15,19,23,27,31,35 
200 005081200 
218 FORF=1T09 
228 FORP=1TOPS 
234 GOSUB2000 
240 совпвзава 
250 бозпв4ава 
Zen 5ЯСР,2ЖР-1)-5:005Ш 2000 
262 ТЕЗ-1ТНЕНСОЗИВЗЙЙА : 5070279 
264 б05ШВ4000:5МСР,2ЖР-5:005/В2Й0й:1Е545ИСР,2ЖЕ-1)-18ТНЕМб050В9100:00Т0270 
266 ЕОЕХ<! ТОЗВЙЙ : NEXT 
270 МЕХТР 
284 HEXTF 
500 Е=1й 
510 FORP=1TOP9 
S24 созивгавя 
534 созивзава 
548 созивдавя 
558 54Р, 1935: бозивгййй: IFS-18THENGOSUBS6GEGR : 505083000 
Dep GOSUB4AAA 
:возивгаай 


Sra SAP, 20) 

588 IFS*SXCP, 183 418THEH6eSa 

582 IFS*SzCP, 122 -18THENGOSUB9100 

584 IFS+S4CP, 19) 22 ТНЕНСОЗИВЗИЯВ 

5898 IFS+S%CP, 1933-1085 12ТНЕНСОЗИВЗЯВЕ 
Бай GÜSUB4BaB:SzcP, 215-5 

602 Ta-8ACP, 19» : TI282CP 20) 

604 ТЕЗзтанноста+т1зтаоетя+т1е2а) ТНЕМСОЗОВЗЯВА 
646 IFS*Ti-18RMDTG-18THENGOSUB29166 
650 МЕХТР 

700 GOSUE Sa 

714 GOSUB 660G 

Baa РЕТНТ" МОШЕ YOUS REJOUER ???" 
810 GETAH: IFA$=""THENSIG 

820 IF A$="0"THENRUN 

839 ТЕВ+<>"Н"ТНЕНВВЙ 


END 
1000 REM AFFICHE TITRE 
i818 PRINT" INETI" TAE. 162" ABOULING 64":РЕІМТ:РБІНТ 
1424 РЕТНТТАВС 122; "MICRO-JEUX 1985" 
1959 FORK=1TO24848 : NEXT : RETURN 
1200 REM AFFICHE BOHLING 


1224 PRINT "T"; :FORX=1T038:PRINT"—" ; :МЕХТ:РЕІНТ" 1" 
1230 PRINT" JOUEUR JEU I"TRBC395" |" 

1232 РЕТНТ 

1235 PRINT" "ТӨВС207"1 5 C D R E:"TRBCSSD" |" 


1248 PRINT" "ТӨВС200" I" TRBC3952" |" 


1250 PRINT" "TRBC39D" |" 

1268 PRINTUT "; :FORX=1TO38 PRINT" 
1279 GOSUB136@ 

1288 РЕТМТ" Л "ТӨВСЗЭ2" H 

1230 FORK-1TOS:PRINT"TTTRBC392" |" :МЕХТ 

1388 РЕТМТ"ГГ"ТНВСЗ9Э2" 7! 

1318 б0508 1360 

1328 РЕТНТ" 1"; :FORK-1TO38:PRIHT" "; ааа PRINT" J" 
1334 FORX=1T02:PRIN "ТӨВСЗЭЭ ЕХТ 

1348 PRIHT'TL."; ЕПРХ-1Т038:РЕТНТ".!: :МЕХТ: PRINT" J" 

1358 БЕТПЕН 

i368 РЕТМТ"Л //// 062222 dé éd IPUBLICAZZZ 777r 1" RETURN 
гай REM IMITIRLISRTIONS JOUEURS 

2414 РЕТНТ"Я" :РЕТНТ "ИВ U WI";TRBC155;" "ТЯВС359:" EN 
2815 РБІМТ"ИМ"НФР);ТНВС1522Ғ;ТЯВ(3525У(Р,2ЖҒ-12%6У(Р,Еж22 

2924 RETURM 

зава REM INITIRLISHTIONS SCORES 

3818 ЕПЕх-1Т010:РСЯ42-1:МЕХТ 

3924 005083500: RETURN 

3500 REM EFFACEMENT 

3518 FORX=1TO1A 

3928 PRIMT"s" ;"FÜREIZITOXCRO : PRINT" 
3530 пода 1точско : PRINT "A"; : NEXT: PR 


INEXT: PRINT "7" 


+ IFPEKD=1THENPRINT "Ile" 


3560 RETURN 
4009 REM AFFICHAGE BALLE 
4814 PRINT" SITET" ; 


Dee STEEN 


PRINT "ON"; 
4854 GOSUB 495 
4868 PRINT" ИМ"; 


IFR$C»""THEN4138 


""Cs16TOSSTEP-1 
4090 PRIMT"ONW"; 
41808 605184958: IFREC»""THEN4138 
4119 PRINT" WD"; 
4129 NEXTVC: ботодаза 
4138 1FR+="S"THENGOSUBEAGA : 505081200 : 60SUB2000 : 60SUB3500: GOT O4A AA 
4148 CeVRLCR$) : ТЕСЪЗАНОС<?ТНЕНСЕВ : GOT O4 169 
4158 IFC>6THEHC=-(C-6) 
4160 КЕМ DEPLRCEMENT DROIT 
4178 FORXC=1TO26 
4180 PRINT" ОН": 
4198 FORS=1TOLG#REP à : NEXT 
4200 :НЕХТ:ХС=26 
4218 REM AVEC UNE COURBE 
4228 FORSITITORBSCCO 
4238 PRINT" ON"; :XC=XC+1 
4240 REM 
4254 Güslp4sad 
4268 IFSH-iTHEHRETURH 
4270 НЕХТАТ 
4288 тб=тС+55НСС› 
4290 онвонссз+г2бото4дзай, 4328, 4318 
4300 PRINT" M 50704320 
4318 PRINT" M 
4328 005084500 
4338 IFSH=1THENRETURN 
4348 00Т04220 
4500 REM TOUCHE DU LOUPE 


à 


4518 Вие 

4528 IF! >?НМПУС<1?ТНЕН4559 

4525 PRINT" ";:5М=1 

4534 PRINT BINE IN | BALLE ПЕНДЕ ШИ 

4548 ЕОЕХ=1ТОЗййй:НЕХТ: PRINT "ЧИН EE ::8МЕ1: RETURN | 
4558 ЇЕНССЗВТНЕН45720 

4560 PRINT" "::5М-1:ЁЕТОЕН 


4570 ЕОРРМ-1Т010: ТЕРСРМЭ-ӨТНЕМ46001 
4580 IFXCCACPNDTHENRETURN 


“ТРМ 
REM TOUCHE 


ТЕРНО 1 ТНЕНА? AG 


Я ЕОРХ-1ТОЗЙЙй:МЕХТ 


IEEND 1525, 40FC=8THEN4700 
FORX=1T010:S=S+P(X):P<(X)=0:NEXT:Sh=1:PFINT" ";:0051/83500: RETURN 
81: Р<РН. 
XP=X CPN) : YP=Y<PN) 

FORPX=PNTO1G 

IFABSCYP-V(PHIDDABSEKP-HCPXI2#2 THEN4760 
IFRND(1)<, 4+RCP)/30+ABSCC)/15THENS=5+P (РК: РСРХУЕВ 
МЕХТРУ:РРІМТ" "; 

GOSUBSSOA: PRINT 

Me БЕЗДІ RETURN 


$: 
PRINT"ZMMMENNNNNENNEN FIN DE LA PARTIE" 


RETURN 

REM RFFICHE SCORES 

PRINT'"TY" ; : FORX=1T038 : PRINT"^7"; : NEXT: PRINT" 

PRINT" JOUEURS 5СОВЕ"ТӨВСЗЭЭ" 1" 

PRINT 

PRINT") 1 2 S. 6 7 9. 9 «19" TRB(S95" P 
PRINT" "TABS" m 

FORL1=1TOPS 

PRINT"I "N$€L12; TABC39)" W 

PRINT" "TRBC392" |" :PRINT" T"; 


18THENL2-9 
FORL3=1TOL2 
K=SZ<(L1,L382-15+S2(L1,L382)5 
SM=SM+K 

IFKC10THEN6350 
IFSZ(L1,L3%2-1>C18THEN62340 
SM=SM+SZ(L1,L382+1)> 


L 1, L3M2+1)=10THEN6220 


Ka 
БОЛЛО 
6338 б0Т06350 
6340 SM=SM+SXCL1, 3#2+1) 
6350 PRINTTARETELA) ; STRECSMD ; 

6360 MEXTL3 

6400 ТЕЕФ1ОТНЕНЕЗЙЙ 

6410 SM=SM+S2(L1,19)+S2(L1,20)+S2(L1,21) 

6420 PRINTTRB(T(10 2 LSTRSCEMD ; 

6500 PRINT : PRINT "7" : NEXTI 

6510 PRINT"L";: БОХЬ e PRINT" 

6520 PRINT"TNTRPEZ SUR С..." 

6530 GETR$: IFR$C»"C"THENGS26 

6540 RETURN 

9000 REM STRIKE 

зата PRINT" 

9020 FORK=1T03000 :NEXT : PRINT 
ЕТШЕН 


9100 FEM SPRRE 

9119 PRINT" 

9120 FORX=1T03900 : NEXT : PRINT 
9139 RETURN 


p. 
5 
a 
5 
m 


COMMENTAIRES : 


Ligne 1 à 4 1 initialisation des 
couleurs 


; : NEXT: PRINT".I" 


RIKE !! JOLI!" 
я 


SPARE! LI PAS MAL!"; 
H 


Ligne 3000 à 3020 


scores 


Ligne 3500 à 3560 
partie du décor 


initialisation des 


effacement d’une 


Ligne 10 à 55 1 choix du nombre des Ligne 4000 à 4150 : affichage de Та 
joueurs boule 

Ligne 60 : initialisation des variables Ligne 4160 à 4200 : déplacement en ligne 
Ligne 72 à 75 : entrée des noms des droite 

joueurs Ligne 4210 à 4340 : déplacement avec une 
Ligne 80 : choix du niveau de jeu courbe 3 
Ligne 99 à 710 : programme principal Ligne 4500 à 4610 : tests de collisions 
Ligne 800 à 990 : fin d’une partie Ligne 4630 à 4970 : vous avez touché les 
Ligne 1000 à 2000 : affichage du jeu à quilles 4 

l'écran Ligne 5000 à 6540 : affichage du score 
Ligne 2010 à 2020 : initialisation des Ligne 9000 à 9030 : affichage du strike 
joueurs Ligne 9100 à 9130 : affichage du spare у 
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MSX 
MISSILE 
RE D гармо la TENGST 
d'une destruction assurée. 


Utilisez les touches du curseur pour modifier 
votre trajectoire. 


KEY OFF 
GOTO1 40 
D=(D+1 )AND7 : GOTO230 
D=(D+7)AND7 : GOTO230 
ТЕ €XANDJ > YTHENM= 1 «ац 
IFI4XANDJXYTHENM-3 - 
1ЕТУХАМр4 СҮТНЕММ-5 
IFI>XANDJ>YTHENM=7 — 
IFABSCI-X) 4ANDJ>YTHENM=0 ` 
IFI4X&NDABS( J-Y) <2ТНЕММ-2 
IFABSCI-X) (2ANDJ  4THENM=4 
1Е1 >XANDABS( J-Y) (4THENM=é 
RETURN 
SCREEN2,0:COLOR15,1,4:CLS 
ON SPRITE 60808570 
RESTORE400 : FORW=0TO1 5 :A$=" " : FORQ=0T07 : READN :A$=A$+CHR$ СМ) 

PSET (RND( 1) #255, RND( 1 ) #1 91) ,RNDC1) #15 :NEXTQ : SPRITES (И) =A$ :МЕХТИ 
X=100 : Y=100 : I=RND( 1 ) #248 : J=RND( 1 ) #184 

RESTORES60 : FORG=0T 07 : READN ,U VC 0) =№:НС 0) AJ :NEXTG 

SPRITEON 

ТІ=ТІМЕ 

ONSTICK(O)GOTO230,230,30,230 , 230 , 230 , 40,230 
PUTSPRITEO , (X, Y) ,15,D*8 

GOSUBSO 

IF 0<М1-М AND М1-М<-4 THEN М1-М1-.25:1ЕМ140 ТНЕММ1=7.75 

IF 44M1-MTHEN М1еМ1+ „25: ТЕМ1#8 THENM1=0 

1Е-44М1-М AND М1-М<0 THEN М1=М1+.25:1ЕМ1=8ТНЕММ1=0 

IF Мі-М<--4 THEN М1=М1-.25:1ЕМ1‹0ТНЕМ М1-7.75 
PUTSPRITE1,(1,J),6,M 

X=X+H(D) 1Y2Y4UCD) :1=1+1 . SXHCMI 3 : J=J+1 . SXVCM1 9 

ТЕХ<ОТНЕМХЕО 

ТЕТ «ОТНЕМТ #0 

1ЕҮ>184ТНЕМҮ-184 

1FJ>184THENJ=1 84 

1ЕХ>248ТНЕМХ-248 

1ЕТУ248ТНЕМ1-248 

ТЕХ СОТНЕМҮ-0 

IFJ<OTHENJ=0 

6070220. 

DATA8,8,8,28,28,62,54,20 

DATA1,2,12,60,120,120,176,64 

DATADO ,0,96,248,63,248,96,0 

DATA64,224,120,120,60,12,2,1 

DATA40,108,124,56,56,16,16,16 

DATA2,13,30,30,60,48,64,128 

DATAO,6,31,252,31,6,0,0 

DATA128,64,48,60,30,30,13,2 

DATA16,16,56,40,186,254,238, 170 

DATA1,38,110,244,56,94,44,8 


500 РАТА240,96,252,55,252,96,240,0 

510 DATA8,44,94,56,244,110,38, 1 

B50 DATAOB,110,127,03,20,28,8,8 

530 РАТА16,52,122,28,47,118,100,128 

540 DATAO,15,6,63,236,63,6,15 

550 DATA128,100,118,47,28,122,52,16 

540 РАТА-3,0,-2,2,0,3,2,2,3,0,2,-2,0,-3,-2,-2 
570 SCREENO :TESTIME-TI:COLOR15,4,7:CLS:LOCATE10 , 10 PRINT" PERDU" : PRINT : PRINT 
580 PRINT"UOTRE TEMPS:";TE 

590 IF НІ<ТЕ THEN HI=TE 

600 PRINT:PRINT:PRINT"MEILLEUR ТЕМР5:" НІ 

810 PRINT:PRINT:PRINT"  <SPACE> POUR REJOUER" 
620 IF INKEY$4?" " THEN 620 :ELSE : RETURN) 40 


„Дева 

COMMENTAIRES : Ligne 250 à 280 : orientation du missile 
Ligne 30 à 40 : sous programme de Ligne 290 : affichage du missile 
rotation du vaisseau Ligne 300 : déplacements 
Ligne 50 à 130 : calcul de la position Ligne 310 à 380 : tests de sorties écran 
relative missile/vaisseau Ligne 400 à 470 : sprites du missile 
Ligne 140 à 210 : initialisation Ligne 480 à 550 : sprites du vaisseau 
Ligne 220 : test des touches ` Ligne 5é0 : données de direction 
Ligne 230 : affichage du vaisseau Ligne 570 à 620 : nouvelle partie 

MSX 


CASSE-BRIQUES 


Vous pensiez maîtriser toutes les subtilités 
du casse-briques ? 
Essayez donc cette version ou les classiques raquettes 
ont été remplacées par deux flips... 
Utilisez les flèches pour les déplacer 
et la barre d'espacement pour les actionner. 


сотода 

H=SGHE Н+. 1 IEC RHOS 1 28-4 2: RETURN 

Нэ-ЗОМСНУ, 1 ЭЖС ВНОС 13 8-4 >: RETURN 

CT=1 :BL=4 

БЕҒІНТУ,Н,Ж,Ү.Е,5:У/ш4:Не1:Х-180:Үз108:К-100 

SCREEN 3,@:COLOR 15,1, 7:28 

STORE 390  Еокиейто18: Еокоевйто? : КЕНОМ: ВФ=АФ+СНЕФС Мо: HES TO: SPRITESC M epp 
: НЕХТИ 

СТНЕСЙ, 82-6255, 1312, 6, ВИТНЕС 4, 1910-( 250, 1912, 15 
LINEK 4, 28 2-6 250, 382, 4, BF: LIMEC 4, 48 2-C 250, 50), 9, BF 
LIMEC4, 682-6250, 703. 12, BF: LINE 4, 762-6 250, 90 2, 18, ВЕ 
FITSPRITE18,C243,82, 7, 18: PUTSPRITE16, STEFCE 82, P; 16 
PUTSPRITELI?.STEPCB, 22,7, 17: PUTSPRITE18, 5ТЕРСЯ, 82, 7, 18 
ІЕРПІМТ ҲАР, AN el THEN BL-EL-1:X-188:Y-188:R-180: IFBLSGTHEH 600 
IF POINT: Nän, У 226 THEM H=-H 


16й 
178 
188 
198 
gun 
210 
220 
234 
2ай 
250 
260 
270 
298 
250 
RSR 
310 
320 
338 
зай 
350 
360 
370 
388 
398 
дай 
418 
42H 
420 
448 
450 
Aen 
470 
488 
490 
5йй 
514 
520 
530 
54й 
55й 
560 
Зүй 
5ай 
590 
epp 
619 
620 
630 


COMMENTAIRES : 


IF 
IF 
ШЕ 
що 
ТЕ 
Ме 
IF 


POINTE 2, AM ep THEN Y=- 

РОТМТСАФН, Y 2x18THENPSETC К+Н,У2, 12: собивза: SC=SC+1 

POINTE К+2, WA Je 2HTHENPSET( X, Y+ >, 12: Ме- SC SC*1: GOSUBZB 
POINT X+2+H. Y 2-2 12THENPSETEC HH, Y 2, 9 : GÜSUE 20 : 5 ; 
POINT 442, ҮЗУ =] 2ТНЕНРЗЕТЕ Я УУ 0, 9:020: 56=5С+1 : GÜSUB2B 
POIHTÉ А+2+Н, Y )-3THEMPSET(C +H, т 2, 4: GÜSLIESE SC=SC+1 

РОТМТС 2. ҮЗУ = STHENPSETCH, TV 2,4: Me SCeSC+1 : GOSLBZA 

IF POINTE #+24H, УОЕАТНЕНЕЗЕТС +H, Y 2, 1: GOSUBSA : SC=5C+1 

IF POINTE +Z, NM з= 4ТНЕНРЗЕТС К, Y*V 2,1: Vz-V: SCSSCH1 : GOSUEEA 
GOSUE S54 

МЕН: Y=Y+V 

IF STRIGCHOZ-1THENFI-1 

он ТІСКЕ Ө 260508290, 298, 35H, 298, 298, 298, 360, 298 

РИТ SPRITEB,CW, уа, 2, 2 

IF БІзй THEN РОТЗРЕТТЕ1 Е, 1752,9, 1: РИТ ЗӘРЕІТЕг2,5ТЕР 8,й;,9,2 
IF Р1=1 THEM РОТЗРЕК ТЕ, «Е, 1752, 8, З:РИТ ЗРЕІТЕ2, STEP 8, 83, 8,4 
IF Е-з<а AND я<Еж15 AND 1752<Ү AND X188 THEHGÜSLUES?8 

IF Е151 THEN Е1=@ 

сотот4а 

IFR?Z3STHEMZSBELSE F=R+4 СОТОРЯЙ 
ТЕЕФ4ТНЕНЕЗВЕ ЗЕ R=R-4:GOTO294 
IF 151 THEM Не-Н 

Ман RETURN 

DATA 96, 240., 240, 96:0: 0,0, 0 
АТАЙ, я, à, E2, 254, 254, 224, 0 
DATA, B, B, 124. 127, 127, 7, 8 

ГАТА 12,30, 60, 120, 240, 192, 192,0 
DATA 48,12й,60,30,12,Р,7,8 

parar Tna aarp 

DATAZ. 6,2 
DATAZ., 12744: 12111 
DATAZ: 1,317. 
ГАТА, и 7,2, 
рНТН?,4,7,1.7, 
ОНТА?, 4, PS, 7, 


в.4, г.в, а, В 


DATAT 4.7.1, 7,8, 7, 4, 4, 4. P B, P) SU SS SS THES P2 SH 6 So 8 Eo Pod, 
IF 5С401ТЖ21Й8ТНЕМСТ-СТ-1:00ТО58 
РОТЗРЕТТЕЗ, 6 245, 499, 14, SC^18B8MOD 1545 
РИТЗРЕТТЕ4,5ТЕРСИ,62,14.50/108М0р1045 
РОТЗЕЕТТЕ5, STEP 2, 62, 14, C SC/^18 2MOD1 695 
FUTSPRITES,STEFCB, 62, 14, SCMOD 1@+5 : RETURN 

ЗСЕЕЕНЕ : CLS : LOCATE14, 18: PRIHT"PERDU" 

PRINT : PRINT : PRINT :РЕІНТ" BARRE D'ESPRCE FOUR КЕШІМЕН" 
i ІНКЕҮФ >" "ТНЕН620 

RUH 


balle et de la raquette 
Ligne 350 à 340 : teste si la raquette 


Ligne 20 à 30 : sous programme de calcul 
du rebond de la balle 

Ligne 60 à 130 : initialisation des 
décors 

Ligne 140 : partie perdue 

Ligne 150 à 160 : rebond sur les murs 
rouges 

Ligne 170 à 240 : rebond sur les briques 
Ligne 260 à 340 : déplacement de Та 
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est hors de l'écran 

Ligne 370 à 380 : rebond sur la raquette 
Ligne 390 à 430 : sprites de la balle et 
de la raquette 

Ligne 440 à 540 : sprites des chiffres 
de 0 à 9 et du score 

Ligne 550 à 590 : affichagé du score 
Ligne 600 : affichage de "perdu" et 
nouvelle partie 


MSX 


KOINS 


Des monstres vous traquent sans arrét. 
Seule solution pour vous sortir de ce piége, 
les écraser 
aprés les avoir encerclés avec 
des blocs de glace. 

Utilisez les touches du curseur pour vous déplacer 
dans les quatre directions. 


SCREEN 2:DEFINT KG IM, NR, В, V.H, S, Z, G, T: FÜR ep ТО ТІМЕ/<ТІМЕ-9999):І-КН 


NEXT B 

H1821:F0R Пай TO 3:YCU)-&HISAUF*3ZX9:NEXT 0:5-40:Р-й 
38 RESTORE З48:ЕОБ G-B ТО 8Ж7-1: РЕНО М%:УРОКЕ 0, VRLC"SH'*NS2:NEXT G 
44 КЕЗТОК a: РОК Hop TO ЗНРЕЕ+ ВЖ? РЕНО Не: МРОКЕ G,VRLC"SH'*N$o:NERT G 
58 RESTORE 349:FO0R G-&HlGBOB TO ЗНЕЕЕ+ВЖ РЕНО Не: VPOKE B, VALE" SH" +N): HEST 0 
58 RESTORE 428:FÜR Q=%H2000 TO &HIFFF-SX?:RERD Не: УРОКЕ 0, YALE "&H"+HE):NEXT B 
70 RESTORE 420: Е0Е Q=%H280@ TO на?РЕ+ ВЖ? РЕНО Не УРОКЕ D, VHLC'SH'KHbo:NERT H 
88 RESTORE 420: Е0Е пеънзайй TO &H2FFF+8#7:RERD N$:VPOKE OVALE "&H"+H$): HEAT 0 
Әй FOR Q=%H1820 То ёН17ЕЙФЗ2Ж24:1Е ВНОС 1 2<.2 THEN УРОКЕ 0,2 ELSE VPOKE буй 
194 HEAT G ` 
118 FOR Q=%H1800 то &H1800+32423 STEP 32: МРОКЕ 0,4:УРОКЕ 0+31,4:МЕХТ Q 


124 FOR D=&H1800 TO %Н1800431:УРОКЕ 0, 4: МРОКЕ 0+32%23,4:МЕХТ 0 d 


134 УРОКЕ »,1:TIME-G 

148 МРОКЕ YCTO,3:IF VPEEKCW2-3 THEN GOTO 610 

154 IS=INKE NS: IF 1#<>"" THEN G=*:GOSUB 188: ВЕЕР 

164 IF ЕМОС1ЭЖ99945 THEN TzRMDCIDKP:GOÜSUB 230:5=5+1 

178 GOTO 140 

184 IF ІФ-СНЕФ( 28) THEN Z=1:GOTO 490 

198 IF 1%=СНЕ%С29) THEN 2--1:0010 490 

гав IF I$=CHR$ 30) THEN z--32:GüT0 494 

219 IF LësCHk 312 THEN 2-32:0070 428 

220 RETURN 

230 IF ТМЕЗКНО 1 226900 THEN GOTO 228 

240 IF УРЕЕКСҮ( ТО+2 251 THEM 618 

258 ге НТС ERD 1 2X2 X311 XXSGNCRNDC 12-7. 52 

260 IF УРЕЕКСҮСТ)+22=й THEN УРОКЕ ҮСТ2,0:ҮСТочҮСТ2%2:УРОКЕ ҮСТ»,З 

270 RETURN - 

288 IF Gel THEN 388 

294 IF INTCTOSINTCTZ2) THEN Ме5ОМСҮСТ У-ХЭж32Ж50НСҮСТ/32-5/32) ELSE Мезанси-че T» 

M3e*xsGHC R^32-Y6 T2732 

зай IF УРЕЕКСҮСТ ЭЭ 261 THEN 614 

З1й IF МРЕЕКСУСТОЖИОВА THEN VPOKE YCTO, B: YCT OS YC TM: УРОКЕ CT 2, З КЕТОКН ELSE e 

а: вото 254 

328 61: КЕТИКН 

SO RE cec FORMES meer 

340 DATA 9,6, 0,9, 0,0,0,0 

354 DATA 19,54,76, 10,38, 28, 44, 44 

260 DATA EE, C6. AA 92. AA, C6, FE, op 

370 DATA 10, 7C, Dë, 7C. за, 48, CC, 48 == 

зва DATA FF.FF,FF.FF,FF,FF.FF.FF = 
= 


398 DATA 18,24,42,99,99,42,24,15 
айй DATA 88.18, 3C. 7E, 7E: ЗС, 19, 08 
акы 20) COULEURS ÈS 
420 DATA F1,F1,F1,F1,F1,F1,F1,F1 
438 DATA 41,41,41,41,41,41,41,41 
448 DATA Е1,Е1,Е1,Е1,Е1,Е1,Е1,Е1 
450 DATA 61,61,61,61,61,61,61,61 
468 DATA Е1,Е1,Е1,Е1, ЕТ, ЕТ, ЕТ, Е 
479 DATA ALALALALALALALAL 
480 DATA 61,61,61,61,61,61,61,61 
430 б=0+2 

Sag ON ҮРЕЕКС02%1 GOTO 520,560. 540, 550, 570 

518 GATO 434 š 
528 IF Q=Z+Z THEM УРОКЕ x, B:A-HEZ:VPOKE Ко 1: КЕТОКН 
538 IF R<>@ THEN 598 

548 R-R*1:GUTO 498 
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ЕЕН 


G:LOCATE 13,.9:PRINT"HIVERU :" 
n"; INT GOEL ТЇМЕУЗИЙЙ-1НТСТЇМЕ/ЗИЙЙ 225 "s" РОК ПЕЙ ТО 5555:НЕХТ 0 
620 IF IHKEY$<>"" THEN RUH ELSE GOTO 628 


S58 IF УРЕЕКСКФ20263 THEN 618 
568 IFVPEEKCUM 1 2-2НЫРУРЕЕКСО-1 
INDVPEEKXC 


-31) 


HHD'VPEEKC Q+31 


2АНОУРЕЕКС Q-32 


-2BNDVPEEKX 0-32 
ННОУРЕЕКС 0-: 5 


ЗАНОФРЕЕКС 0433 = 
ноБВЕО"  РОКТЗаТОЗ 


POKER, 3: 0-0: УРОКЕВ,Б:НЕХТТ: УРОКЕВ, 2: VPOKEX А: X=X+Z : УРОКЕХ, 1: РЕР+1 : GÜSUEGEB : T= 
Р: бОТОБИЙ 
970 RETURN 
590 PLAY "41 5.540309 jD":VPDKE КВ: Хака: УРОКЕ Х,1:УРОКЕ В, 2 Est: КЕТПЕН 


694 IF УРЕЕКХЕНОС 12Ж768%%Ң180й)-0 THEM Y<T)=&H1808+RHD( O 2%768: RETURN ELSE GOTO e 
ай 
518 PLRY"VISLGAUIRDUZBEOSCFO4DGOSEROSFBÜTGC":VPDKE Х, 5: РОК 0-0 TO 999:NEXT G:SCR 


:LOCRTE 12, 15:РЕТНТ"ТТМЕ :";INT(TIMEZ3000);"m 


Ligne 230 à 320 : sous programme de 
déplacement pour les monstes 

Ligne 330 à 480 : données pour Îles 
redéfinitions de caractères 

Ligne 490 à 580 : sous programme de 
déplacement des briques 

Ligne 590 à 620 : fin de tableau - 
affichage du temps 


COMMENTAIRES : 


Ligne 10 à 80 : initialisation et 
définition des caractères 

Ligne 90 à 130 : mise en place du décor 
Ligne 140 à 170 : boucle principale 
Ligne 180 à 220 : sous programme de 
déplacement de l’homme 


Votre avion vous attend, prêt à décoller. 
Bouclez votre ceinture 
ет... à vous les sensations fortes! 
Salomez entre les obstacles 
qui encombrent le ciel 


ou, plus simple encore, détruis 
vous déplacer, 


les. Les flèches servent à 


la barre d'espacement, à tirer. 
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5,1B8,88,21,83, IB. CD, 4D, 00, 
SR, 56, C3, 21,09, 18, CD, 4D, 00, 21, 1D, 1B, CD, 4D, 00, C9 


DATA 3E,G.CD 


„06, 88, 7B, 32, 51, C3, ER С3,21,01,16, CD, 4D, 00, 21, 15 1E, CD, 4D, 00, 
21,19, 1B, CD, 4D, 00, 21, 8D, 1B, CD, 4D, 88, 21, 21, 1E, CD, 4D, 00, 


124 RESTORE 110:ҒОЕ D=1 ТО 67:READ С8:РОКЕ 32773!*D.VRLC"&H'-C$2:NEAT D:DEFUSRE3 
2773! 
130 SOUND ?,2:S0UND 9, 4:SCREEN1. 2, 0: КЕТОЕЕ : COLOR15, 1,1 


148 
158 


SOUND 6,63:DF-2:TD-2 
КЕМЖЖЖОЕРТНТТТОН DE 1” ВУТОМЖЖЖЖ 


168 CLEAR 18BBB:DHTH 8,8,8,8,38,49,49, 49, FF, 8B, 8C, 88, 8D, 45, 2D, 11, 79, 26, 12, А, CR, 2 
A, ZA, ZH, ЕН, 2,4,14,94,14,14,94 

170 RESTORE 168:HG$-"":FÜR Dei ТО 32:RERD C$:HGS-RGS*CHESCVRLC"BH'*DC$22:NEXT D 
184 DATA 9E, 64. 42. 50, 58: 54 54, 54, SF, 48, 20. 26, 29, 28, 28, 29, 80, BO, OA, OO, OC, S2, 92, 92 
„ЕЕ, 1,31, 21,81, 32,84, 88 

198 RESTORE 188:RD FÜR 0=1 TO 32:RERD C$:RD$-RD$-CHR$CVRLG"&H'*C$22:NEAT D 
гай DATA OC, 02, 01. AG, 00, 0A, па, ПЯ, па, 00, ва, 0A, ва, DO, DO HG, 14, 14,94, 44, 22, 11, 8, 8, 8. 
,8,Н.В,9,4,2,1 

210 RESTORE 288:DG$-"":FÜR D-1 TO 32:RERD C$:DG#=DG$+CHRSC VALE "&Н"+С% 2 ):НЕХТ D 
ага Ee пиуза 20 дагсо во: ва, БОЕ OC N 
8,8,8,0,0,0,0,0 

234 RESTORE 228:DD$-"":FÜR D-1 ТО 32:RERD С8:008-0084СНЕВСҮН!С"6Н"-089:НЕХТ D 
244 SPRITES« Я ip: ЗРКТТЕФС 1 2-НрФ 
258 SPRITES, 22-DG$: SPRITESC 32-ОрФ 
264 FUTSPRITE 8,(80,102,1,8 

Era FUTSPRITE S,C88,185,,5 

280 FUTSPRITE 1,(96,182,1,1 

290 FUTSPRITE 6,<96,1й),,6 

300 PUTSPRITE 2,(80,26),1,2 

318 РИТЗРЕТТЕ 7,(89,26),,7 


зай PUTSFRITE 3,(36,262,1,3 


334 РОТЗРЕТТЕ 8,696,262..8:НҮ-84:МУ-2:015 
348 САТА FF,.FF,FF.FF.FF,FF.FF,FF,BB, TE. Е, TE. TE, ТЕ, TE, В, BEI, BB, ЗС, ЗС, SC) SC. ӨӨ, BD 


„ав, Ba : 

354 RESTORE 34B:FÜR Dei TO 4:FOR 1-1 ТО S:RERD СЗ Б Сро-ВЕСрожСНЕВСУНЫС"ЁН"4080) 

:NERT ТОМЕХТ D 

368 DATA па, да, ва, па, ва, за, 38, 38, BB. TF , YF TF | TF ; ЗЕ, 1F, ПР, B8, 19, OD, 05, 09, 

; BS, FD, FE, ER, EB, EB, EB, EB. 

374 БЕБТОВЕ 368:FD$-"":FOR р=1 ТО 32:RERD CS$:FDS-FDS-*CHRSC VRLC"&H'*C822:NEXT D 

PRITESC 5 )=F р 

384 DATA па, 98, ва, па, най, AS, RS, RS. Ай, RF DF D? D? D? D D7 88, BB, по, ай, ай, пс, ас, ӨС 

„28, FE; FE, FE, ЕЕ, ЕС, ES, ЕЙ 

398 RESTORE 384:F6$="":FOR D=1 ТО 32:RERD C$:FGS-FGS*CHRSCVRLG"SH"HCB)2:NEAT D:S 

PRITES 6 2-FGS$ 

дай DATA #3, 91, ва, да, ва, па, ва, ва, па, ва, да, па, па, ва, ва, AA, ЕЕ, ЕЕ, ЕЕ, ЗЕ, IEF, BF BF, BF 

„ВЕ, ВЕ, ВЕ, Е, ВЕ, B3, й1, DO 

418 RESTORE 408 :ЕНФе"" РОК D-1 То 32:RERD Се: FAS=FAS+CHRSC VALE ЕН 40800 NEKT 0:5 

FRITES Y 3=FF$ 

428 DATA ЕЕ,ЕЕ,ЕЕ,„ЕС,ЕВ,ЕЙ,ЕВ, ЕЙ, ЕЙ, EB, EB, EG, EO CO, 80, 00, FB CO, па, йо, йй, пр, ва, ай 

„ай, па, па, OA, па, па, па, ай 

438 RESTORE 42B:FE$-"":FÜR р=1 TO 32:RERD СФ: РЕФЕРЕФ+СНЕФСМАСС "АН +СФУЗ:НЕХТ 0:5 

PRITES( 824ҒЕ% 

440 REMEXEDEFIMITIOH DU РВУЗВСЕЖЖЖЕЖ 

458 DATA S1.CH,ES, EB, ЕН, 04, AA, BS, 3C, TE, C3, 81, RS; BD, SR, 8, 0, 18, 66, 8, 0, 30, СС, B 

468 RESTORE 450:КОК HS-96 TO 112 STEP S:FÜR D=0 ТО 7:READ CS:VPOKE АБЖ, VALK "$: 
$): NEXT D:NEXT RS 

VPKE 8205, 1#16+3 

УРОКЕ 8204, 15 

УРОКЕ 8206,15Ж16%4 

УРОКЕ 8219,3#16+3 > 

УРОКЕ 8193,8Ж16%3:ОЕ-1й:Трей 7 

Й FOR Dep ТО 7: УРОКЕ 3364D,255 


C3, съ, ся 
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УРОК 6840,255:МЕХТ р 
УРОКЕ S207,16+14 
0 УРОКЕ 9197,8#16+8:G0T0 720 


50 КЕМЖЖЖОЕМОЖЖЖЖ 
TD=TD+1:IF ТОФОРТНЕН RETURN 238 
Тозй ЕНЫЕТНТСЕНОС 1 ОЖЯВ 2+ 1 
IF EAU THEN GOSUE 548 

HAAS 


: PRINT 


THEN РЕЈМТ"РРРРРРРРЕСОВЕРРРР" : 5С; "PPPPPP'":TZSE:RETURH ELSE 
&4PPPPPPPPICCCCELS 
РЕРРРРРРРРРРР«454" 
"РРРРРРРРРРРРРРРРРРРРРРРЧС" 
{РРРРРРР" 
ОН EH Е RVE. 
Е ТЕ<ОЕ THEN 7 TR=0: ОЕЕ0Е+ 


гай 


FOR Tei То 19 
ТКЕТЕ+ 1 ДЕ TE&SDF THEN cap ELSE РЕТНТ"ечачичинича faang gang 
SUE 74 . 


Ligne 100 à 120 : mise en mémoire du 
langage machine 

Ligne 130 à 140 : bruit de 
l'avion-initialisation écran 

Ligne 150 à 430 : définition et 
affichage de l'avion 

Ligne 440 à 550 : définition des 
paysages et des couleurs 

Ligne 540 à 630 : affichage d'une 
riviére ou non 


Е FA#S ІНЕН 918 
PRITESE 4 = 


0 8 STEP -1:500Н0 9.О-МЕХТ D:M-219 


ҮЕТНТХ TY28 3, М 


THEN УРОКЕ св 44 INTCTRAZB ЖЗ HF INTCTY 


dr IHTCH 
THER S SOUND 6 ПЕ D=15 TO ü STEF -. 5 
5 AT: PRINT : PRIHTTHEC 3 "GAME OVER": PRINT 


RINT: ЕКІНТІ (42"5 21 То тайй: НЕАТ D:GOTO па 
1060) RETURN 


COMMENTAIRES : A Ligne 640 à 710 : si oui, le faire 


Ligne 750 : modifier les variables pour 
changer le temps de décollage 

Ligne 840 : à T on tire 

Ligne 890 : si oui alros l'obus descend 
Ligne 920 à 970 : obus touche un bloc ? 
Si oui, effacement et score 

Ligne 990 à 1010 : l’avion ne doit pas 

sortir de l’écran 

Ligne 1020 à 1060 : si l'avion touche, 

alors un de moins 


DESTROY 


Le sort de la base est entre vos mains. 
Si un missile parvient à franchir vos tirs de barrage, 
tout est perdu. 
Combinez l'action des touches du curseur pour vous déplacer 
dans huit directions. 
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KEYOFF 
SCREEN3,0 :COLOR15,1,7:CLS 
DEFINTX Y ,U,H,J,I 
LINE(251,0)-(255,191),12,B:LINE(236,0)-(247,191),6,BF 
RESTORE : FORW=0TO1 :A$=" " : FORG=0T O7 t READN :A$=A$+CHR$ (N) :МЕХТО 
SPRITES (W)=A$ :NEXTU : X=1 00 : Y=1 00 : 1=0 : J=RND( 12 #183 
ONSPRITE GOSUB310 
PUTSPRITEO , (1,472 ,15,0 

IF POINT(1+3,J+5)=12THEN GOTO330 

IF POINT(I*3,J45)94THEN PSET(I*3,J45) ,1:1=0 

11 +2+6МО (12 #4 elt RNDCI) «8-4 

SPRITE ON 

узо :H=0 

ONSTICK(0)GOSUB230, 240 „250 , 260 ,270,280,290,300 
PUTSPRITE1 ,(X,Y) ,7,1:X=X+H:Y=Y+U 

IFY>183 THEN Y=183 

IFJ»183 THEN Ј=183 

IFJ«0 THEN J=0 

ТЕУ<О THEN Ү-0 

GOTO 80 


DATA 0,0,0,204,115,204,0,0 
DATA 14,14,16,238,16,16,16,0 
V=-4 : H=0 : RETURN 

Uz-3:H-3: RETURN 

H=4 : RETURN 

U=3 : H=3 : RETURN 


: RETURN 


310 LINE(0,1?1)-(X,Y),2:LINE(0,191)-(X,Y),1:I=0:J=RND(1)%183 

320 PUTSPRITEO,(1,J),15,0:SC=SC+1 : RETURN 

330 SCREENO:COLOR15,4,7 

340 LOCATE10,10:PRINT"PERDU" 

350 PRINT:PRINT:PRINT"VOTRE SCORE:";SC 

360 IFHI<SC THEN HI-SC 

370 PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 

380 PRINT:PRINT:PRINT" «SPACE» POUR REJOUER" 

390 IF INKEY$4»" " THEN390 ELSE20 
COMMENTAIRES : l'écran 

Ligne 230 à 300 : sous programme de 
Ligne 10 à 70 : initialisation du jeu déplacement du viseur 
Ligne 80 à 120 : déplacement du missile Ligne 310 à 320 : destruction du missile 
Ligne 130 à 150 : déplacement du viseur Ligne 330 à 390 : routines de score, 
Ligne 160 à 190 : tests de sortie de hi-score et fin de partie 
MSX 
Repeignez une pièce entière 
sans vous faire attraper par les monstres 
furieux de voir 
leur tranquillité troublée. 
Déplacez-vous avec maestria grâce aux touches fléchées 
du clavier. 

10 KEY OFF 

20 DEFINTX,Y,H,V,M,S 

30 X=32:Y=32:H=4:V=0 : S=2 

40 FORM=0T01 :X(M)=224: H(M)=4 :UCM)=0 :NEXTM:NM=1 :Y(0)=32:Y(1)=172 

50 SCREEN3,0:COLOR15,1,7:CLS 

60 RESTORE230 :FORW=OTO4 :A$="":FORQ=1TO 8 :READN:A$=A$+CHRS (М) :NEXTG 


70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


SPRITES (W)=A$ :NEXTU 
FOR G=0 TOS :LINE(QX24*32,32) -(0x24*32,148) ,15:NEXTG 
FORG-0TO7:LINE(32,32*20x0) -(224,32*20x0) ,15:NEXTG 

IF POINT(X+H,Y+U)=15THENX=X+H:Y=Y+U:PSET(X,Y),12:SC=SC+1 

IF POINT(X*H, Y*U)712THENX-X*H rY-Y e 

FORM=0T01 

ТЕРОТМТ СХМ) + НСМ) ,Y(M)+U(M))=15 THEN XCM)=X CM) +HCM) :Y(M)=Y (M) +4 CM) 
IF POINT(X(M)+H(M) ,YCMD+V(M))=12 THEN X(M)=X(M)+H(M) :Y(M)=Y (M) +U (M> 
PUTSPRITEM*2, CX(M)-2,Y(M)-3),8,0 

IFCY(M)-32MOD20+(X(M)-32)MOD24=0 THEN 80508360 

ТЕХ ЕХ AND Y(M)=Y THEN 410 

NEXTM 

PUTSPRITEO, (X-2,Y-3),5,S 

ONSTICK(O)GOSUB280 ,290,300,290,320,290,340,290 

IF 5С-644 ТНЕМ470 

6070100 . 
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230 DATA24,36,126,235,126,60,36,102 
240 DATA 254,255,1,14,16,16,16,14 

250 DATA 3,3,3,243,11,11,11,6 

260 DATAS,8,8,8,112,128,255,127 

270 DATA?6,208,208,208,207,172,172,192 
280 IF РОІМТ(Х,Ү-42<21 THEN S=1:V=-4:H=0 Seez 
290 RETURN 

300 IF РОІМТ‹Х+4,Ү) <>1 THEN S=2:V=0:H=4 
310 RETURN 

320 IF POINT(X,Y+4)<>1 THEN S=3:V=4:H=0 
330 RETURN 

340 IF РОІМТ(Х-4,Ү2<21 THEN S=4:V=0 :H=-4 
350 RETURN 

360 IF:X=X(M)THENH(M)=0 :U(M)=4#SGNCY-Y (MD > : RETURN 

370 ТЕ Y=YCM)THENV(M)=0 : H(M)=4#SGNCX-X CM) > t RETURN 

380 V(M)=0 :H(M)=0 

390 IFRND(1)>.STHENV(M)=SGNCRND(1)-.5)#4 ELSE H(M)=4xSGNCRND(1)-,.5) 
400 IF H(M)=0 AND V(M)=0 ТНЕМЗ?0 ELSE RETURN 

410 SCREENO : COLOR15,4,7:CLS:HSC-HSC*SCtLOCATE10 , 10 : PRINT" PERDU" 

420 PRINT : PRINT : PRINT : РЕТМТ"УОТВЕ SCORE :" : НЗС 

430 IFHI<HSC THEN HI=HSC 

440 PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 


450 PRINT:PRINT:PRINT" «SPACE» POUR REJOUER" 
460 IF INKEY$4»" " THEN 460 ELSE HSC=0 : SC=0 : GOTO30 
470 HSC-HSC*SC:GOTO30 


COMMENTAIRES : Ligne 190 : affichage du rouleau 

Ligne 20 : définition des variables Ligne 200 : test clavier 

Ligne 30 à 4à : initialisation des Ligne 210 : tableau terminé ? 

variables Ligne 230 à 270 : définition des sprites 
Ligne 50 à 90 : initialisation des Ligne 280 à 350 : orientation du rouleau 
décors et des sprites Ligne 360 à 400 : orientation 

Ligne 100 à 110 : déplacement du rouleau semi-aléatoire des monstres 

Ligne 120 à 180 : déplacement des Ligne 410 à 460 : nouvelle partie 
monstres Ligne 470 : nouveau tableau 


PUZZLE 


Reconstituez un puzzle . 
composé de chiffres. L'ordinateur est tolérant : 
il vous laisse recommencer 
autant de fois que vous le désirez. 
Les fléches 
servent à vous déplacer, faites-en bon usage... 


сото тава 
КЖККЕЖЕЖЖЕЖЕЖЖК 
Ж 
TRC-TRC SUR MSX * 


3 x 
Е PAR E, YON ASCHEBERG # 


TEE xx 
+1:RETURH ELSE IF 262 THEM I=0:J=J+1:RETÚRN ELSE I=0:J=0:RETUR 


:LOCHTE 13+4E#4,8+F#4: PRINT ЕЕ LO 
ий 

ds bo аш 13+ЕЖ4, 8+F#4: PRINT LCE.FO:LU 
САТЕ 14#E- OCH 
138 IF Ізі AND F< THEM SHRP 7 с "LOCATE 134ЕЖ4,8ФЕХ4 PRINT Е.Е: 
САТЕ 14%ЕЖ4,8%(Ғ%12%4 :Е=Е+1:РВІНТ " " “TO 288 
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144 IF Теб DND Е<2 THEM SHRP L£E,F 3, LCE+1,F):LOCATE 1З+ЕЖ4, В+РЖА PRINT LCE, ELO 
«Е%1244,8%-%4 :E=E+1:PRINT " ":GOTO 208 


TURN 
EYOFF : SCREEN B:COLOR 7,1 
а DIM LC3, 32: DEFINT I-L 
TO 8 
CTIE EZ? 


B THEM бовив 58 : GOTO 838 ELSE 141,1 


+ LOCATE 12,6 


FOR 2-0 Tü 2 
LOCATE 13%1%4,8%1Ж4 
IF ит, Од THEN PRINT СТ, 12 ELSE E=I: 
NEXT / 
HEST I 
RETURN 
тава GOSUE вйй:” 
1818 GOSUE 188:* 
D 1010 


IHITIRLISRTION 
TEST D'UNE TOUCHE 


COMMENTAIRES : NES 
Ligne 0 à 9 : remarques sur le jeu Ligne 200 à 220 : temporisation pour 
Ligne 50 : sous-routine de modification éviter une répétition 
des indices Ligne 800 à 835 : création de Та grille 
Ligne 100 : test des fleches Ligne 840 à 950 : affichage de la grille 
Ligne 110 à 190 : modification de la Ligne 1000 à 1020 : boucle principale 
М$Х 


SKRAMBLE 


Aventurez-vous dans la grotte aux mille diamants... 
et revenez riche ou mort! 
Vous gagnez 10 points par joyau récupéré 
mais en perdez 20 si votre vaisseau 
heurte un des murs de la grotte. Or ces derniers ont une 
curieuse manie : ils se resserrent 
dés qu'ils ont détecté une présence. Faites vite... 
grâce à votre joystick ou aux touches d'édition. 


19 'SKRRMBLE sur MSX a 80 PRINT "collision -28 pts" 
24 'CCODPYRIGHT 1985 PAR FRANCOIS-RE Эй IF INKEYS="" THEN 90 
GIS CHAUMARTIN ET TILT 199 COLOR 6,4,4:5СЕЕЕН 2,0 
За SCREEN 1:КЕҮ OFF:COLOR 1,4,4 118 LINE С8,02-С255,0),10 
A LOCATE 5,5:РКІНТ "SKRAMBLE" 128 LINE (8,150-C255, 152,18 
РБІНТ:РКІНТ 138 LINE <0,12-<255,14),1,ВҒ 


B PRINT "iowau recuPere....*18 Pts" 140 ОРЕН "GRP:" FOR OUTPUT RS #1 
PRINT "josau oublie........ 8 pts" 158 X-16:Y-4:R$-"SKRHMBLE <С21985 TILT SCORE- o" 


168 FOR 1-1 ТО LEM 

170 DRAH "ВМ"+5ТЕФС Он" "+5ТЕ$СҮ ) 

188 PRINT #1, МТОФСАФ, 1, 12 

198 Ver HEST I:CLUSE #1 

гай ОН SPRITE GÜSUB 618: ЗРКТТЕ ON 

210 OPEN "GRP:" FOR OUTPUT RS #1 
R: "FOR Те 8 та 2 READ A 


92 168: 144, 142, 137,255.66, 60 
FOR IsB TO 7:READ A 

270 R-R*FCHRRCRO:NERT I 

280 SPRITES 1)=A$ 

290 DATA 24,60, 102,195, 195, 102, 60, 24 
Зай БЕРЕНЕ! RHO -TIME ЖК +1 

319 DIM ус 
328 SC-m:Dy-48 | 

330 LINE C8, 325-C255, 325,18 
348 LINE (0,1912-(255,191),18 
350 LINE (8,332-(255,19й 2 1,BF 
360 FOR [=й TO 16 

370 PUT SPRITE 1.68, Seen I 
380 AY=FNRC 20 +108 : Үс 
390 LINE са, AYJ- 15, 
400 LINE el RY-DY3-C18, Gg foy 2,19 
4180 vig 


SE T0 255 STEP 16 
4за ҮеВҮЖЕМЕС402-20 


498 LIHE 
500 YCX/162=Y 
IF ЕМЕС 1805558 THEM ССХ21 


UT TE XZ/16,(X+g,Y-8) 
529 н а. 2191 
538 Y 


570 IF ҮУСҮСУМ/169-04 THEN SC=8C-20: Ve 
У+8:Со5иы 650 


a 

PUT SPRITE ХУ/16,Сй, 209) 

PUT SPRITE 9,CX4, YVO,CCRVZ162 
640 GOSUp 658: ЗРЕТТЕ ОН: РЕТОКН 
650 LINE <211,4)-(246,12),1,BF 
669 DRAH "ВМ211,4" 
670 IF SC<A THEN PRINT $1.8:PLRY"L64T255 
BRGFEDC" : A$=INPUTSC5):RUN 200 
680 PRINT #1,5С: ВЕЕР: RETURN 


COMMENTAIRES : 


Ligne 10 à 170 : Initialisation des 
graphismes et présentation, 

Ligne 180 à 270 : Initialisation des 
sprites : SPRITE#(0) = le vaisseau 
SPRITE$C1) = un joyau. 

Ligne 280 à 300 : Initialisation des 
variables, 


Ligne 310 à 510 : Affichage de la 


caverne, 

Ligne 520 à 580 : Déplacements du 
vaisseau, 

Ligne 590 à 620 : Tests de collision des 
sprites. 


Ligne 630 à 660 : Affichage du score et 
test pour savoir s’il est inférieur à 
zero, dans ce cas fin de la partie. 


CŒUR BRISE 


Fendrez-vous le cœur de votre ordinateur ? 
Déplacez une flèche 
avec habileté et réussissez cet exploit 


peu commun. 


Deux touches du curseur vous permettent d'aller 
à droite et à gauche et une troisiéme sert à vous 


immobiliser. 


10 SCREEN2,0:COLOR15,1,7:CLS 


20 LINE(O,1702-(256,1925 , 12, BF:CIRCLEC128,169) ,70,10,0,3.14 
30 І.ІМЕ(58,149)-(198,169),10:РА1МТ(128,1482,10,10 
40 RESTORE: FORUZOTOG :&$-" " : FORQ=0T07: READN :A$=A$+CHR$ (N) :NEXTG 


50 SGPRITESCH за  : МЕХТИ 
60 ON SPRITE GOSUB240 


70 SPRITEON:FORY=OTO1 84STEPRND 1 ) #3+3 

80 FORX=0TO256 STEP3+Y/30 : PUTSPRITEO,(X,Y) ,6,0 

90 IF Е THEN I=1+H:J=J+#U:PUTSPRITE{.(1.J),7,S:1FJ<0 THEN F=NOTF : J=180 

100 ТЕМОТЕТНЕМ : GOSUB250 : 1=1+D:PUTSPRITE1 ,(1,180),7,S:1FSTRIG(O)THEN F=NOTI 


1101F 1>244 THEN GOSUB 230 
1201Е 141 THEN GOSUB220 
130 IFY>164 ТНЕМ2%0 

140 NEXTX , Y 

150 6070290 

160 GOTO70 


170 DATA 0,108,254,254,254,124,56,16 


180 DATA 7,3,5,8,16,32,192,64 
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190 DATA 224,192,160,16,8,4,3,2 
200 DATA 16,56,16,16,16,16,56,40 

210 D=0:V=-4:H=0 :5=3: RETURN 

220 D=3:V=-3:H=3:G=1 : RETURN 

230 Dz-3:U2-3:Hz2-3:8-2:RETURN 

240 RETURN 

250 ONSTICK(O)GOSUB210,240,220,240,240,240 ,230 , 240 : RETURN 

260 SC=S6C+1:F=0:1=128:J=1 80 : GOSUB170 : PUTSPRITEI , (1,180) ,7, 8: RETURN?7O 
270 PRINT:PRINT:PRINT" «SPACE» POUR REJOUER" 
280 IF INKEYS$4»""THEN 280 

290 SCREENO:COLOR15,4,7:CLS 

300 LOCATE10,10:PRINT"PERDU" 

810 PRINT:PRINT:PRINT"UOTRE SCORE:";SC 

320 IFHI<SC THEN HI-SC 

330 PRINT:PRINT:PRINT"MEILLEUR SCORE:";HI 

340 PRINT:PRINT:PRINT" «SPACE» POUR REJOUER" 
345 FORG-0TOSO00:NEXTG 

350 IF INKEY#=" "THEN 5С-0:00Т010:Е15Е 350 


COMMENTAIRES : Ligne 140 : déplacement du coeur 
Ligne 10 à 60 : initialisation du jeu Ligne 170 à 200 : données du jeu 
Ligne 70 à 80 : affichage du coeur Ligne 210 à 250 : sous programme de 
Ligne 90 à 100 : déplacement de la déplacement de la flèche 
fleche Ligne 260 : coeur touché 
Ligne 110 à 120 : test de sortie d'écran Ligne 270 à 350 : routine de score, 
Ligne 130 : fin de partie hiscore et nouvelle partie 

MR$U— ee 
Reconstituez le mot ргорозе par l'ordinateur 
à Гаще des lettres 
qui tombent du haut de votre écran. 
Mais attention : ne prenez jamais une lettre inutile. 
Utilisez les flèches pour vous déplacer. 

5 WIDTH40 

10 01МАХС6) ,B2(C6) ,LAC6) 
20 KEYOFF 


30 CLS:G0SUB190:CLS 

40 РОВОЖОТОБ: (ВО ЕТМТ (RND(-TIME) #26) +65 :A2CQ)=INTCRND(-TIME) #39) :NEXTG 
50 LeRND(L)*S:LOCATEAZ(L) ,BACL) : PRINT" ":BZ(L)=BZ(L)+1 

50 IF BX(L)=22 THEN BX(L)=0 :LACL)=INT(RNDC-TIME)#26)+65:PLAY"F" 

70 LOCATE > ,BACL) 1PRINTCHRSCLAG ) 

80 LOCATEX,22:PRINT"*^* 

90 IF STICK(O)=3 AND Х<38 THEN LOCATEX,22:PRINT" ":X=X+1 

100 IF STICK(O)=7 AND Х>0 THEN LOCATEX,22:PRINT" ":XeX-1 

110 E#=CHR#(UPEEK(840+X)):1F ВФ?"2" OR B$<"A" THEN 50 

120 A=INSTR(NS „СНЕФ(МРЕЕК< В40+ >> 

130 IFAX?0 THEN MIDSCNS,A, 1)=" 7" :SC-SC*1:LOCATEX,21:PRINT" *:PLAY"A":ELSE 220 
140 IF SC=8 THEN CT=CT+1 : SC=0 : GOTO20 

150 GOTOSO 

160 DATATORNADES , BEDAINES , BALEINES , BANL I EUE , BAPTEMES ,MEFIANTS 

170 DATATRAHI SON, MERCREDI ,FRICTION, DEDI CACE , ABLUT I ON 

180 DATA ANCETRES, SCALPEES , SECANTES , ENSABLEE , CARDINAL , RADI CALE , TUYAUTEE 
190 RESTORE :N=INT (RND(-TIME) #1 8 +1 : FORG=1 ТОМ: READN# :NEXTO 

200 LOCATE 10,10:PRINT"LE MOT À ATTRAPER EST ";N$ 

210 FOR G=0T01000 :NEXTG:RETURN 

220 CLS:PRINT" PERDU" :LOCATE15, 10 :PRINTNS 

230 LOCATE10,17:PRINT"UOTRE SCORE: " ; SC+CT#8 

240 SC=0:LOCATE10,22:PRINT* (SPACE> POUR REJOUER* 

250 IF 'INKEY$=" " THEN 20 ELSE 250 


COMMENTAIRES : et prise de lettre 

Ligne 10 à 40 : initialisation du jeu Ligne 160 à 180 : vocabulaire 

Ligne 50 à 70 : chute des lettres Ligne 190 à 210 : détermination du mot 
Ligne 80 à 150 : déplacement du joueur Ligne 220 à 250 : score 
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SPECTRUM 


ROULETTE RUSSE 


Préparez-vous à affronter la mort. 
Votre Spectrum adore jouer à la roulette russe, 
et lui, il a les nerfs solides... 
Pressez la touche 1 pour faire tourner le barillet et tirez. 
Si vous préférez vivre, pressez la touche 2. 


1 RESTORE : RANDOMIZE : LET B=0: LET 2-0: BORDER 0: PAPER 8: INK 4: CLS 
10 FOR f=0 ТО 19: PRINT RT f,0; PAPER 6; e 


15 PRINT AT й,8; INK 2; PAPER 7: FLASH 1;"roulette russe" 
20 GO SUB 188: PRINT RT 5,16; PAPER 6; INK 8; "ҒЕСО";НТ 6,19; PAPER 6; INK 0:"Е 


22 00 SUE 178: PRINT AT 4,5; INK 9; PAPER 6; "ҒӨС";НТ 5,5; INK 8; PAPER 6; "ГЕР" 
JAT 6,5; PAPER 6; ІМК Вз "анг АТ 7,6; INK 8; PAPER 6;".!" 

25 PRINT AT 13,8; ІМК 1; PAPER 7; FLASH 1;"1";RT 13,2; INK 3; FLASH 8; PAPER В 
i"tourner le barillet et tirer" 

30 PRINT AT 15,0; INK 1; PAPER 7; FLASH 1;"2";RT 15,2; INK 3; FLASH 8; PAPER В 
+ "abandonner" 

48 PAUSE 48: 

42 IF INKEY: 
CRHDXG 2+1 


: HEN 


RINT НТ 18,18; PAPER ei" ": PAUSE 0 
1" THEN FOR F=1 TO 25: ВЕЕР .02,Ғ: NEXT Е: RANDOMIZE : LET БУНТ 


45 IF INKEY$="2" THEN PRINT RT 21,18; FLASH 1;"deSonfle": ВЕЕР 1,-28: STOP 

50 IF B=3 THEN PRINT RT 10,10; INK 2; PAPER 6; "ВАНС!! FOR Ғз15 TO 1 STEP -1 
: PRINT НТ 5,8: INK 8; PAPER 6;".": ВЕЕР .01,15: NEXT f: ВЕЕР „2,8: PRINT НТ 21, 
9; INK 2; PAPER 7; FLASH 1;"VOUS ETES МОКТ!!": PAUSE 0: GO TO 1 

51 PRINT RT 18,18; INK 2; PAPER 6;"CLICK!!!": LET 2=2+1: ВЕЕР .2,20 

55 IF 2410 THEN PRINT RT 21,7; INK 2; PAPER 6; FLASH 15"ЖЖЖУ005 GRGNEZXX*": FD 
R F=1 TO 18: ВЕЕР .1,19: ВЕЕР .05,20: ВЕЕР .002,0: NEXT Е: FOR F=1 TO 158: OUT 2 
54,Ғ: NEXT Е: GO TO 1 

60 GO TO 40: 

ЭЙ REM rico...on ne meurt Pas vraiment!!! 

188 FOR a-USR "a" ТО USR "e"+7 

111 RERD user: POKE a,USER 

115 MEXT a: RETURN 

128 REM revolver 

138 DATA 0,128,128,255,128,255,0,0 

135 DATA й,15,8,255,8,255,8,15 

149 DATA 9,255, 7: 2994 7: 299: 71299 

145 САТА 112,224, 192, 192,192, 192, 224, 240 

150 DATA 252,252,252,252,252,124,124,56 

178 REM crane 

188 FOR a=USR "a" TO USR "inte 

190 READ user: POKE a,user 

195 NEXT a: RETURN 


249 DATA 0,1,2,2,4,4,4,4 
218 DATA 253,8,8,8,80,8,8,8 


192,48,8,8,4,4,4,4 
4,3,9,8,8,4,4,4 
224,241,241,224,0,0,0,8 
234,242,242,226,4,4,4,4 


4,4,4,2,2,1,0,0 
8,28,28,0,й,0,128,128 
8,8,16,32,32,64,64,64 
178,191,143,128,64, 33, 38,0 


COMMENTAIRES : mortel 

Ligne 45 : cas ou le joueur quitte Та 
Ligne 1 à 10 : présentation du haut de partie 
l'écran Ligne 50 А 40 : affichage des 
Ligne 15 à 40 : affichage du bas de différentes options et retour au début 
l'écran du jeu 
Lighne 42 1 test d'une touche et tirage Ligne 100 à 150 : dessin du revolver 
aléatoire pour savoir si le coup est Ligne 150 à 250 : dessin du crane 


U-BOAT 


Un sous-marin ennemi se cache au fond des eaux troubles 
du Pacifique. 
Láchez vos mines sur lui 
avec le plus de précision possible. 
Pour jouer, il vous suffit 
d'entrer les coordonnées X et Y du sous-marin. 


(C 


- 
о 0,0 205. е: 
еко СВО кат А А SAS VE е 94 


“а 1 POKE 23609,20: 00 SUB 689: REM eric the coconut 

2 LET бепрз=0: LET 1-20: LET h-11: LET зай! LET 428: LET ш=й: LET 9515: LET P 
70: LET c=1: BORDER 0: PAPER Ø: INK 4: CLS 

19 FOR f=Ø TO 31: PRINT RT 0,6) INK 2; PAPER 6; FLASH 1;"X": PRINT RT 21,f; IN 
K 2; PAPER 6; FLASH 1;"Ж": ВЕЕР .009,10: NEXT f: FOR f=9 ТО 21: ВЕЕР „008, tr: PRI 
ЫГ ЛЫН INK 2; PAPER 6; FLASH 1;"X": PRINT AT #,31; INK 2; PAPER 6; FLASH 19" 

15 со SUB 29 

18 LET с=с+1 

19 IF INKEY$<>"" THEN FOR Fz1 TO 21: PRINT #1: ВЕЕР .886,F: NEXT Е: CLS : GO T 


0 45 
20 PRINT AT 5,3; FLASH I ғ-ң 
22 PRINT AT 6,3; FLASH 1 UD 


23 PRINT RT 7,3; FLASH 1; INK c;"B 1 m ki 
25 PRINT RT 8,3; FLASH 1; ,INK с; "В 1 1 
26 PRINT RT 9,3; FLASH 15 INK с; "Ваай м 
27 IF ст? THEN LET c=9 - 


28 ВЕЕР .9@7,c#5: GO TO 18 
29 PRINT AT 19,1; INK 6;" eric caberia": RETURN 
45 FÜR f=1 TO 12: PRINT PAPER 15" ^": NEXT f: ЕП 
Е Ғ-й TO 5: PRINT RT Ғ,й; PAPER Si" "o: MEXT f 

SG ІНК 2: PLOT 8,175: DRAW 255,8: PLOT 9,89: DEn 255,0: PLOT 9,89: DRAH D. 35: 
PLOT 255,84: DRAW 0,95: PLOT 127,88: DRAH 9:35 

52 PRINT RT 5,5; PAPER 5; ІМК а; "тк" 

52 LET fuel=55 

64 REM Position u-boat 
RANDOMIZE : LET x=INT СЕНРрЖ100291: 


LET s-IHT CRHDX1882*1: LET z-IMT CRHDXIO 


REM Position chasseur 
85 LET a=INT CRNDX18825-1: LET БЕТНТ CRHDX18B2*1 

188 PRINT RT 17,9; INK 2;"1-DEPLRCEMENT": PRINT RT 19,8; INK 4:"2-РЕОР GRENADE" 

: FOR ##9 TO 6 STEP -1: PRINT АТ Ғ,22; PAPER 1; ІМК й;"РЕС";НТ f*1.22;"DEF": РКІ 


HT HT f+2,22; РНРЕК 15" 9: BEER .1,Ғ: MENT f 
118 PRINT AT 12,10; PAPER 7; INK 1; FLASH 95" ": PRINT RT 12,29; PAPER 7; INK 
1; FLASH wi" ": PRINT RT 12,2; INK 1; PAPER 7; FLASH 3;" fuel :";fuel: PRINT AT 


12,18; INK 1; PAPER 7; FLASH ыг" grenades "ra: PRINT AT 13,8; INK 3;"COORD Ке" 
ІН: PRINT RT 15,0; ІНК 6:"COORD Y:";B 

115 LET temPs=temPs+1 

116 IF temPs=1299 THEN LET 9-8: GO TO 175 

128 IF INKEY#="1" THEN GO SUB 200 

120 IF INKEY#="2" THEM IF 920 THEN INPUT INK 6;:"profondeur caP'taine T";P: GO S 
Up 500 

135 IF P»18B THEN PRINT АТ 21,8; INK 2; PAPER 7; FLASH 1;"PROF МАХ 188 METRES" 
LET P=ÿ: ВЕЕР 1.5,-18: GO SUB 500 

148 IF P=1 THEN PRINT RT 21,4; INK 2; FLASH 1; PAPER 7;" RUTO-DESTRUCTION!!": В 
EEP 1,-1й: PAUSE Ø: GO SUB 500: CLS : GU TO 1 

155 IF P<>@ THEM PRINT RT 21,0; INK 6;"-sonar :";: GO SUB epp: GO TO 118 

175 IF 9=9 OR fuel=Q THEM PRINT AT 2,17; INK Ø; PAPER 1;"a notre tour": PAUSE 9 
B: PRINT AT 2,17; PAPER 1;" ": FOR fz4 TO 1 STEP -1: PRINT AT f,23; Р 
APER 1; INK B;"H";HT f41,23;" ": ВЕЕР .05,Ғ: NEXT f: PRINT AT 1,23; PAPER 1;" ": 
PRINT AT 11,6; INK Ø; PAPER 1 ": FOR f=19 TO 6 STEP -1: PRINT RT Ғ,6; FAPER 1 
ji INK 8;"H";RT f*1,6; PAPER 1; : ВЕЕР „05, #+5: NEXT f: GO TO 18688 

188 GQ TO 118 

2904 ВЕЕР .1,19: BEEP..1,-18: INPUT INK 6;"nouvelle coord x caP'taine T" 
T AT 13.8; PAPER Gi" з 

201 IF 3<1 ОЕ a>100 THEM GO TO 200 

pre 41.18: INPUT INK 6; "nouvelle coord s caP'taine ?";b: PRINT AT 15,8; PA 
PER й;" " 

211 IF 841 OR b»18H THEN GO TO 218 

215 LET fuel-fuel-5 

216 IF fuel-18 THEM LET 451 

гай RETURN 

500 PRINT RT 21,8;" "г RETURN 

epp IF зях AND y=b AND P=z THEN LET 1-22: LET h=6: GO SUB 988: GO SUE 1508: РОК 
f=1 ТО 58^ PAUSE 4: OUT 254,f: NEXT f: PRINT AT 21.5; INK 2; PAPER 7; FLASH 17" 
ЖЖ bravo en ";s;" coups XX": FOR f-1 TO 58: ВЕЕР .@2,f: NEXT f: PAUSE Ø: GO TO 2 
601 00 SUB opp 

605 IF Ь<з THEN PRINT "sud"; 
606 IF b»s THEM PRINT "nord"; 
607 IF аох THEN PRINT "~est"; 
608 IF ах THEN PRINT "-ouest"; 
614 IF bon OR а<>х THEN PRINT " et"; 
628 IF РО? THEN PRINT " trop bas ": ВЕЕР .5,19 

625 IF Р<2 THEN PRINT " trop haut ": ВЕЕР .S.2H 

627 IF Р=2 THEN PRINT " Prof ok.": ВЕЕР .5,2@ 

628 LET s=s+1: IF 9=2\ THEN LET wei 

630 LET Рей: PRINT AT 2,22; PAPER 1; INK @i"ouf!!": PAUSE 188: GO SUB 508: PRIM 
Т AT 2,22; FAPER 1;" ": RETURN 
684 FOR F=USR "а" ТО USR "n"+7 
585 READ user: POKE f.user 
690 NEXT f: RETURN 
тва DATA й,02,0,й,0,0,0,195 
таз DATA 12,8,30,63,63,63,255,255 
710 DATA й,й,0,0,й,й,192,252 
715 DATA 175,159,159, 159, 167,195,0, 0 


: PRIH 
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тай DATA 255.255, 255. 255, 255. 255. 255.63 
725 DATA 254, 255, 255. 255. 2534, 252: 192,0 
тэд DATA 129.90, 60, 126,126, 60,990,129 
725 DATA 8.8,8,8,8,8.8,20 

740 DATA й,1,1,15,15,255,127,62 

745 DATA 0,207,216, 240, 254, 255, 255,255 
750 DATA Я, 128,0, 124; 96, 253, 245, 224 

760 DATA 42,129.43, 128,43, 123,41,82 

тта DATA B.H.42,64,42,64,42.8 
тва DATA й,й,0,24,24,й,0,0 

988 PRINT RT 6,5; PAPER 1; INK 8, 
й "в ВТ Ғ-1,6; INK 0; PAPER 15" 


: FOR Ға? TO 11: PRINT AT Ғ,6; PAPER 1: INK 
: ВЕЕР „85,Е: NEXT Е: PRINT AT 11.6; PAPER 1; 


"^": FÜR fel ТО h: PRINT AT Ғ,1) PAPER 1; INK.0;"G";BT Ғ-1,1; PAPER 15" ": BEEP 
.US,f: NEXT f: LET 9=9-1 
918 PRINT НТ 11.28; PAPER 1;" ": INK 2: PLOT 8,175: DRAW 255,0: PRINT AT 21,0; 


ІМК 6; "астам ";: RETURN 
1000 REM explosion chasseur 
1818 PRINT AT 6,6; PAPER 1;" ": PRINT AT 5,5; INK 2; PAPER S;"LLL": ВЕЕР „2,-18: 


МАНТЫ ТЫЗ.) ӨРЕ RTE 6565 РРЕВЕЕР n°2515: РЕЇНТ AT 5.5; ЇМК 2; PAPER 5; 

1924 PRINT AT 21,0; INK 6;" u-boat: ; үзі" Prof=";z: PAUSE В: GO TQ 2 
1458 REM explosion u-boat 

1500 PRINT HT 6,22; INK 2; PAPER 1;"LLL";RT 7,22; INK 2; PAPER l;"LLL": ВЕЕР .2, 
10 

1600 PRINT AT 6,22; ІМК 2: PAPER 1; "ме RT 7,22; INK 2; PAPER 1; "Ммм": ВЕЕР „2, 
-10 

1700 PRINT НТ 6,22; INK 2; PAPER 1; "NN"; RT 7,22; INK 2; PAPER 1; "Мчч": ВЕЕР „2, 


-18: PRINT AT 6,22; PAPER 1;" ";AT 7,22; PAPER 1;" ": RETURM 

COMMENTAIRES : Ligne 140 à 155 : auto destruction 
Ligne 175 à 180 : tir du sous-marin 
Ligne 200 à 500 : déplacement de votre 

Ligne 1 : ce poke augmente la longueur bateau 

du beep écran 2 Ligne 600 à 630 : affichage d’un message 

Ligne 2 : initialisation des variables après le tir 

Ligne 10 à 52 : présentation du jeu Ligne 680 à 690 : routine de chargement 

Ligne 70 : position de l'u-boat des cartactères 

Ligne 80 à 110 : position de votre Ligne 700 à 780 : DATAS des caractères 

navire Ligne 1010 à 1020 : explosion du 

Ligne 115 : durée du jeu sous-marin 

Ligne 116 : test de fin de jeu Ligne 1500 à 1700 : explosion de 

Ligne 120 à 130 : test clavier l^u-boat 


SPECTRUM 
Deux ovnis se poursuivent dans des gerbes d'étincelles. 
Touchez l'autre, vous marquerez un point. 
Mais vous perdrez deux points si vous rentrez en collision 
trop brutale avec lui. 
Joueur numéro 1, О = haut, X = gauche, C = droite, A = bas, 
Z = tirer à gauche et V = tirer à droite. 

Joueur numéro 2, P = haut, М = gauche, M = droite, L = bas, 

B = tirer à gauche et «.» = tirer à droite. 


1 REM ММ 
2 КЕМ PGM; ОМНІ 

5 LET 1040: LET C$-"4": LET РВ=5: LET PR-5: LET AG=@: LET BB-8: LET 
НЗ=й: LET R4-B: LET B3-8: LET В4-0 

10 BORDER B: PAPER Ø: ІНК 6: CLS : LET B&-"": GO TO 40 

га LET Z=IHT CRHDX*325: RETURH 
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5 PRINT HT EY, НА "жн: 


LET 2-1НТ онази БЕТПЕН 


EA 5 2: GÜ SUB 30: LET А2=2 
: LET Bl=Z: GO SUB 38: LET В2-2 

THEN LET Н4-Н4-1 

THEH LET Н4-Н4%1 

THEN LET A3=A3+1 

THEM LET 

THEH LET 

ТНЕН LET 

ТНЕМ LET 

THEH LET 

GO TO 118 

THEM LET Нй-1: GO ТО 185 

THEN LET Нй--1: GO TO 185 

: LET RY-R2 

GO то 138 

THEM LET B8-1: GO TD 125 
IF INKEY$= THEN LET B@=-1: GO TO 125 
LET Вхев1+в8: LET BY=B2 
LET R1=R1+ñ3: IF A1<1 THEM LET 8151: LET НЗ-1 
IF Ri»38 THEM LET Н1-30: LET R3--1 
LET R2=R2+R4: IF AS<G THEM LET R2-8: LET A4=1 
IF 82521 THEN LET Я2=21: LET R4-- 
LET В1=В1+В3: IF В1<1 THEM LET Bisi: LET В3<1 


IF E1238 THEN 
LET В2=В2+В4: 
i IF B2>21 THEN 
CLS : IF ВВ: 
LET Нх-НИФРЙФНЗ: 
PRINT НТ RY,15,5+R0415.5; "k": 
IF Бй-й THEM GO ТО 190 

LET Ви=ВИ+Б@+В3: 
PRINT НТ Вт, 15, 5+ВЖ19, 5; "Ж": 
PRINT HT A2:A1-1 
IF Яй< >90 THEN PRINT ВТ Ву, ВЖ: "-" 
IF В@<>@ THEN PRIHT AT BY, BX; "=" 
PRINT #1: "А=": PR, "Bei PE 

IF Нй-й OR BB-G THEN GO TO 238 
IF PC: UR AY 


LET Bl=30: LET B3- 


LET В2=21: 
THEN GO ТО 180 


IF Вй-й THEM 50 ТО 268 

IF A2<>BY THEM GO TO 260 

IF E“>A1+1 OR ExéA1-1 THEN СО TO 
LET X=BX: LET Y=BY: LET РВ=РВ+1: 


A PRINT НТ 2,10;"FUSEE A DETRUITE": 


IF Нй-й THEN GO ТО 298 

IF B2<>AY ТНЕН GO ТО 298 

ДЕ Б1%1 OR НҰ<Б1-1 THEN GO ТО 
LET кейк: LET Y=AY: LET РН=РН+1: 


PRINT AT 2,14; "FUSEE В DETRUITE": 


IF Нй-й THEN 00 TO 318 
IF На Ау THEM GO TO 318 


IF ӨХЭН191 DR A#<A1-1 THEN GO TO 31 


LET АНХ: LET ҮеНҮ: LET РВЕРВ+1: 
PRINT RT Z,18;"SUICIDE FUSEE A": 
IF Вй-й THEM GO TO 33H 

IF В2<>ВҮ THEM СО ТО 338 

IF Вк261+1 OR Би«Е1-1 THEN GO ТО 
LET #=B#: LET Y=BY: LET РН=РН+1: 
5 PRINT AT 2,18;"SUICIDE FUSEE B": 
IF 924 >82 THEN СО TO 50 

IF БізНізг2 OR БІ<Н1-2 THEM GQ ТО 


LET S=A1: IF 8128 THEN LET 5-В1 
LET I=Al: IF В1<І THEN LET 1-81 
LET B$z"": FOR J=0 TO 5+2-1: LET 
LET K=1+(S-1)/2: LET Y-R2: PRINT 


418 


: LET В4=1 


IF AX<31 AND pp THEN GO TO 198 
LET Нй=й 


IF BX<31 AND Ep THEM GO TO 198 
LET Bü-B 
"=A=";AT B2,B1-1;"=B=" 


EY THEM GO ТО 254 
LET Нй-й: LET В9-0 


260 
со SUB 418: LET Ей-й 
со SUE 400 


234 
со SUB 418: LET Нй-0 
со SUE 400 


D 
со SUB 418: LET Rü-ü 
со SUB 488 


зза 
со SUB 418: LET Бий 
со SUB 408 


58 


Б#=В$+С%: MEAT J 


ВТ Н2,1-1;В%: LET РН-РН-2: LET РЕЕРВ-1 


3298 PRINT AT 1,28; "COLISION !!!": 
488 BORDER 6: PAUSE 5: BORDER 
418 ЫП SUB 576 

411 IF РАЗРЕ THEN GO TO 500 
424 IF PR28 THEN GO ТО 440 
438 CLS : PRINT #1;"LE PILOTE DE LA FUSEE ‘A’ 
50 TO 560 

440 IF PB2&8 THEN GO TO 460 

458 CLS : PRINT #1;"LE PILOTE DE LR FUSEE "pi 
50 TO S68 

5B IF РВ< 15 THEN GO TO 420 

CLS : PRINT #1:"FELICITATION PILOTE B": 
IF РН<15 THEM RETURH 

CLS : PRINT #1:"FELICITATION PILOTE А": 
IF РЕ<й THEM GO TO 458 

IF PR<0 THEM GO TO 438 

IF РН214 THEM GO TO 499 

IF PB»14 THEM СО TO 470 
RETURN 

GO SUB 400: RUN 

LET С1=0: LET C2-8: LET C3=0: 
FOR 1541 TO 10 

IF Ү-І<й THEM LET 0151 

IF ҮЗІ?21 THEN LET С2=1 

IF 4-I48 THEN LET C3=1 

IF W*1»31 THEM LET С4=1 

IF С1=1 THEN GO TO 670 

IF C3=1 THEN GO TO 664 

PRINT HT Ү-1.5-1:" 
БЕЙ PRINT RT Y-I,X; 
IF C3-1 THEM СО 
PRINT RT Y,X-I)" Ш" 

PRINT RT v,X;" " 

IF C4=0 THEM PRINT RT Y,X+I;" F" 
IF C2-1 THEN GO TO 740 

IF C2-1 THEM GO То 730 

PRINT RT Y*I,4-I;"*" 

PRINT RT '*I.W;" 
HEXT I: RETURN 
RETURN 


GO SUB 488: 


LET C4=D 


690 


: PAUSE 10: BORDER 3: PAUSE 5: BORDER o 


IF C4=0 THEM PRINT AT Y-I 8+1; "9" 


": IF C4=0 THEN PRINT RT Y4I,X*I;"*" 


GQ TO 48 


DOIT ETRE RECYCLE D'URGENCE !": 


DOIT ETRE RECYCLE D'URGENCE !": 


GO TO 560 
50 TO 560 


COMMENTAIRES : 


Ligne 0 à 45 : initialisation des 
variables 
Ligne 50 à 85 : 
Ligne 90 à 125 : 
affichage 
Ligne 130 à 170 : 


test du clavier 
test du tir et 


variation des 


coordonnées selon la vitesse 

Ligne 175 à 340 : tests de collisions 
Ligne 350 à 390 : sous programme de 
collision 

Ligne 400 à 560 : sous programme de 
score et test de limites écran 

Ligne 570 à 750 : sous programme 
d'explosion > 
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_——_———————————-—— 


ЗРЕСТКИМ 


SUITE INFERNALE 


Une suite de nombre apparaît en haut à droite de votre 
écran. Reconstituez-la 
en ramassant dans votre petite barque 
2 = les chiffres qui tombent du ciel. 
Faites vite sinon la suite va changer. Pour vous déplacer, 
sachez que 5 - gauche, 8 = droite. 


> 18 REM ЖЖЖЕЖЕЖЖЕЖЖЖЖУЖЖЖЖЖЖЖЖ 
20 REM Ж TILT * 
JE REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
31 50 SUB S08 
32 REM variables 
38 LET n$z"ü" 
39 LET zeg 
41 GO SUB Sama 
42 LET dei 
43 LET $1216 
46 PAPER Ø: INK 7: BORDER 1: CLS 
47 REM Position du chiffre 
50 LET nombre=INT <ЕМрЖ1й 2448 
64 LET x=d: LET че НТ CRNDX27 0+2 
66 PRINT НТ B, DB; ',əeemrer 
67 PRINT НТ 2,83 emenawr 
80 PRINT AT x.s; INK CRND#62+1;:CHR$ nombre 
81 PRINT HT x-1.9;CHRS 32 
ЭЙ PRINT НТ 21.91; INK 6;" Ben " 
92 PRINT AT 1,0; "SCORE: INK біз 
ЭЗ PRINT AT 1,16; "SUITE: "; INK 5;0%С4 TO u); INK 75" mmm 
95 LET х=х+1 
100 IF IHKEY#="8" THEM LET 91591+1: IF 1227 THEN LET 41527 
191 REM test clavier 
118 IF INKEY$="5" THEM LET 91591-1: IF Уі<ӣ THEN LET s1-8 
115 IF х=21 THEN GO SUB 1000: GO TO 58 
129 IF 5298 AND LEM n$=1 THEN СО TO 5000 
гай GO TO 68 
999 REM test si bon chiffre 
1000 IF s=41+2 OR 9-91-1 ОК s-s143 THEN ВЕЕР ,1,18: GO TO 1918 
1992 PRINT АТ 28,9;" " 
1085 LET 2=2-1 AND s28: PRINT RT х›ч;" ": LET n$-CHR& СІНТ <ЕМОЖ102448)0: GO SUE 
вйай: GO TO 50 
1010 LET а%-пФбсі TO 42: BORDER RNDX7: IF nombre-CODE a$ THEM LET s=s+2: LET desch 
1: LET пени d TO LEM n$): LET w-LEN n$: PRINT AT 280,9;" ": GO SUB 3000: RETURN 
1015 PRINT AT 28,495" " 
1928 LET s=s+1: RETURN 9 


3000 IF LEM ти THEN во SUB 8000: GO TO 42 
2010 БЕТПЕН 
S000 CLS : PRINT AT 18, 13; "ВКАМ 
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5010 FOR f=0 TO 69: ВЕЕР .Й1,Ғ: МЕХ 
5020 PAUSE B: RUN 
7399 REM creation de la suite 


Tf 


вайа FOR £21 TO INT (RNDX182: LET m-n$*CHRE CINT СЕНРЖ1824482: HEAT f 


8003 IF LEN n$=1 THEN GO ТО 5968 
2005 LET w=LEN n$ 

8100 RETURH 

8999 REM СНЕФ redefinis 

Sega FOR F-USR "a" TO USR "4"-1 
9819 READ а 

9011 POKE f.a 

9012 NEXT f 

9020 DATA Z24.208,176.208,175,85,42 
172,248 

ЭЙЗИ NEXT f 

9046 БЕТПЕН 


;31,8,0,8,8, 255, 85, 178, 255, 7, 13, 11, 13, 251, 86, 


COMMENTAIRES : 


Ligne 32 à 43 : initialisation des 
variables 

Ligne 46 : initialisation de l'écran 
Ligne 50 à 60 : tirage aléatoire de 
position du nombre qui descend 
Ligne 66 à 93 : affichage du décor 


Ligne 100 à 200 : test du clavier 

Ligne 1000 à 1020 : teste si le chiffre 

est bon 

Ligne S000 à 5020 

Ligne 8000 à 8010 
la d'une suite 

Ligne 9000 à 9040 : redéfinition des 

caractères graphiques 


SPECTRUM 


la partie est gagnée 
tirage aléatoire 


SPACE WALL 


Protégez le mur magnétique qui défend votre cité contre les 
attaques ennemies. 
5 — gauche, 6 = haut, 7 - bas et 8 - droite. 


18 REM ЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖ 

20 REM Ж TILT * 

38 REM ЖЖЖЖЖЖЖЖЖЕЖЕЖЖЖЖЖЖЖЖЖ 

35 PAPER B: INK 6: BORDER 8: CLS 
48 КЕМ VARIABLES 

45 GO SUBE Saga 

46 LET Sep 

47 LET C 
48 IF C=7 THEN LET C-1 

49 PRINT RT F,28; INK C;"O": NEXT 
SA LET *-16: LET Үе16 

51 REM Position du vaiseau 

ep LET Н-ІМТ СЕНОЖ217 

65 LET ВзІМТ СЕНОЖВ 2 

188 PRINT НТ Y,.x; OVER 1) "+" 

| 118 PRINT RT A: В+1; "а" 


1: FOR F=1 То 21: LET C=C+1 


F 


121 


Cari еее е ае a PEE 
f 
ұ 


111 PRINT RT R,B;" " 

112 PRINT RT Ү,Х; OVER 1;"+" 

113 IF SCREENS C(R,B*22-"0" THEM ВЕЕР .1,10: PRINT RT a,b*l;" ": со TO 60 

115 LET B=B+1 

124 IF В>28 THEM GO TO 2888 

121 PRINT AT 8,8; OVER 1;"SCORE:";5 

122 REM test clavier 

125 LET Wex*CINKEY: " AND «За 2-( 1 НКЕТЯН "5" AND КЪВ) 

126 LET vert ТНКЕУ ' AND Ү<212-СІНКЕҮФ-"?" AND Y>@ù 

127 PRINT HT 0,0; OVER 1; "SCORE :";6 

128 IF 52108 THEN GO TO зайа 

129 REM tir+test collision 

138 IF INKEY$="Ø" THEN IF X-B AND Y-R THEN PRINT RT Я,В+1:" ";RT Y,X;" ": LET S 
=5+1: FOR F=9 ТО 19: ВЕЕР .01,F: НЕХТ Е: GO TO 69 

гай GO TO таа 
2000 FOR Ғ-й TO 18: ВЕЕР .1,ҒЖ2: PRINT RT s,X;"X": ВЕЕР .1.f: PRINT RT s,X;"4" 
NEXT f 
2018 CLS 
2820 PRINT RT 18,12; "ЗСОКЕ: ";8 
2030 FOR Ей TO 50: ВЕЕР .й1,Е: MEXT Е 

2040 PAUSE Ø: RUN 

3888 CLS : FOR reg TO 21: PRINT AT ff; INK INT CRND#6)+1;"BRAVO!": BEEP „Ю1,Р 
NEXT f: PAUSE Ø: RUN 

8999 КЕМ CHR$ redefini 

Saba FÜR F=USR "R" TO USR "В"-1 

910 READ A 

ЭЙ2Ӣ POKE Е,А 

9030 МЕХТ F 


DATA 0,0,248,175, 
RETURN 


COMMENTAIRES : Ligne 100 à 112 : affichage des 
vaisseaux 
Ligne 121 : affichage du score 
Ligne 35 : initialisation de l'écran Ligne 125 à 126 : test du clavier 
Ligne 45 à 50 : initialisation des Ligne 130 à 3000 : tir et test de 
variables collision 
Ligne 60 à 65 : tirage aléatoire de Та Ligne 9000 à 9100 : redéfinition des 
position des vaisseaux caractéres graphiques р 


++ 
14 
тай 
тава 
1001 
тава 
1003 
1084 
19095 
1006 
1007 
1008 
1999 


BLACK JACK SPECIAL 


Approchez les 21 points sans jamais les dépasser. 
Les cartes au-dessus de 9 
valent 10 points, un as vaut 1 ou 11 points 
selon le désir du joueur et les autres cartes gardent leur 
propre valeur. 
Pour jouer, il vous suffit de suivre 
les directives de l'ordinateur. 


1 PAPER 8: BORDER 8: INK 4: CLS : GO SUB 1888 
LET 4-8: LET хай: LET оғ-й: LET co-8 
50 TO 5000 

DATA BIN 00011000 

DATA БІН 00111100 

DATA BIN 81111118 

DATA BIN 11111111 

DATA BIN 81111119 

DATA EIN 0111100 

DATA BIN 00011000 

DATA BIN 09684258 

DATA BIH 00110110 

DATA ВІН 01100011 


1919 DATA BIN 81118111 
1811 DATA BIN 81111111 
1012 DATA БІН 88111110 

1813 DATA BIN 00011109 

1014 DATA BIN 0000109009 

1915 DATA BIN 9299429 3 
1016 DATA BIN 00011000 

1917 DATA BIN 00111100 

1818 DATA BIN 81111118 

1819 DATA BIH 11111111 

1020 САТА BIN 18811881 

1821 DATA BIN opt loop 

1922 DATA ВІН 90911800 

1023 DATA ВІН 90649830 

1024 DATA ВІН 00011006 

1025 DATA BIN 00111100 

1926 DATA БІН 0008011000 

1027 DATA BIN 01011910 

1828 DATA BIN 11111111 

1829 DATA ВІН 01011010 

1030 DATA BIN 90011000 

1031 DATA BIN 00011000 

2000 FOR х=й TO 7: READ 
2001 FOR х=й ТО 7: READ 
2002 FOR х=й TO 7: READ 
2003 FOR х=й ТО 7: READ 
2999 RETURN 

3000 PRINT INK 2; PAPER ?;RT хээ?" 5: 

2001 PRINT INK 2; PAPER FAT к+1,ч;" 25 

3002 PRINT INK 2; PAPER ZGJAT x*2,9;" 2» 

3003 PRINT INK 2; PAPER ?;RT x*3,9;" + 

3004 PRINT IMK.2; PAPER FIAT х+4,ч;" ^ 

3905 PRINT INK 2; PAPER ?;RT x+5,9;" x. 

зайв PRINT INK 2; PAPER ?;RT x*6,9;" М 

3818 RETLRN 

48808 REM A1 

48801 GO SLE зава 

4002 PRINT HT x*3,9*1; INK a; PAPER ?;CHR$ c: RETURN 

4018 REM AZ 

4911 00 SUE 3888 

4812 PRINT RT x*1,9*1; INK a; PAPER ?;CHRS с) ВТ x*S,w*1;CHR$ c: RETURN 

4924 REM A 3 

4821 GO SUB 4000 

4022 PRINT AT х,ч%1; INK a; PAPER 7:СНЕФ с; НТ :x*6,u*l;CHRS с: RETURN 

4030 REM А 4 

4031 GO SUB 3888 

4032 PRINT AT o*1,9; INK a; PAPER ?;CHR$ ci" ":СНЕФ с) НТ :x*5,4; CHR с)" ";CHRES с 
: RETURN 

4040 REM А 5 

4041 00 SUB 3888: со SUB 4020: GO SUB 4002 

4050 REM oe 

4951 GO SUB 3994 

4052 GO SUB 4032: PRINT AT х%3,9; INK a; PAPER ?;CHRS ci" ":СНЕФ c: RETURN 

4868 REM A7 

4861 GU SUB 200A 

4062 00 SUB 4952: PRINT RT х+2,ч+1; INK а; 


POKE USR "а"+х,а: NEXT 
POKE IJSR : NEXT 
POKE USR "с"+х›с: NEXT 
POKE USR "dit, d: NEXT 


ос» 
хххх 


RETURN 


PAPER ?;CHRÉ c: 


| 4070 REM AS 

4072 00 SUB 300A 

4075 00 SLE 4062 

3876 GD SUB 4052: PRINT AT х+4,ч+1; INK a; PAPER ?;CHR$ c: RETURN 
4989 REM CO 

4090 GO SUB 300A 

4095 PRINT AT » INK a; PAPER 7;CHR$ c;" 
T x4, s; CHRS с)" ":СНЕФ CHAT x+6,3;CHR$ c;" 
4118 REM mia 

4113 00 SUB 4919: GO SUB 4495: RETURN 

4288 REM A v 

4218 со SUB 3000 . 

32280 PRINT HT x*1.9; ІНК a; PAPER ?;"V";CHR$ c: RETURN 

4388 REM A D 

4318 GO SUB зава 

4330 PRINT AT x*1,9; INK a; PAPER 7; "0", СНКФ c: RETURN 

4400 FEM ñ R 2 

4418 GU SUB 3999 

3438 PRINT AT х+1,ч; INK а; PAPER 7;"К";СНЕФ с: RETURN 

S000 REM choix des cartes 

5081 LET зай 

5010 LET Ғ-ІМТ СКНОЖЗ > 

5020 IF f-B THEN LET c-144: LET a-2 

5030 IF f-1 THEN LET c*145: LET a-2 

5848 IF F-2 THEN LET c-146: LET зай 

5090 IF #+3 THEN LET с=147: LET зай 

5188 LET 8-1*INT СЕМОЖ117 

5280 IF 9411 THEN GO SUB (3990+ 9%10)): LET созсо+9: GO ТО 5220 
5210 IF 2-11 THEN GO SUB 4200 

5211 IF 9-12 THEN GO SUB 4399 

5212 IF 98-13 THEN GO SUB 4400 


CHRS с: ВТ х%2,ч;СНЕФ ci" ";CHES с;Н 
;CHR$ с ВТ x*1,5*1;CHRS c: RETURN 


5215 LET со=со+1й 

5300 IF со221 AND оғ-й THEM PRINT #1;"dePassement Perdu!!": PAUSE 8: GU ТО 6880 
5319 IF or THEN RETURN 

5400 IF ч<29 THEN INPUT "une autre carte7",a$: IF аФ-"о" THEN LET s-s*4: 00 TO Š 


2312) 

5500 LET соіссо: LET co-a 

5510 LET оғ-і 

5520 LET x=x+19: LET Уза 

5650 00 SUB 5818 

5655 LET s-u*4 

Deep IF со<17 THEN GO ТО 5650 

S700 IF co»21 THEN PRINT #0; "оз9пе": PAUSE й: GO TO 6994 
5785 IF co>col THEN PRINT #0; "ремац!!!": PAUSE 9: GO TO 6000 
5010 IF со<со1 THEN PRINT i8;"Sasne": PAUSE Ø: GO TO 600G 
6000 INPUT "ипе autre Partie", ag: IF a$="n" THEN STOP 
6010 RUM 18 

ЭЭЭЭ FOR р-й TO 1000: GO SUB 5000: NEXT P 


COMMENTAIRES : 


Ligne 1 à 10 : initialisation de l'écran Ligne 4110 à 4113 : affichage du dix 
Ligne 1000 à 1031 : redéfinition des Ligne 4200 à 4220 : affichage du valet 
caractéres graphiques des cartes à jouer Ligne 4300 à 4330 : affichage de la dame 
Ligne 2000 à 2999 : chargement des Ligne 4400 à 4430 : affichage du roi 
caractères graphiques Ligne 5000 à 5710 : choix des cartes 
Ligne 3000 à 3010 : affichage d’une Ligne 6000 à 6010 : voulez-vous rejouer 
carte blanche ? 


Ligne 4000 à 4002 : affichage de l'as 


Ligne 4010 à 4012 : affichage du deux 
Ligne 4020 à 4022 : affichage du trois 
Ligne 4030 à 4032 : affichage du quatre 
Ligne 4040 à 4041 : affichage du cinq 
Ligne 4050 à 4032 : affichage du six 
Ligne 4060 à 4062 : affichage du sept 

: Ligne 4070 à 4076 : affichage du huit 
Ligne 4090 à 4095 : affichage du neuf 
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SPECTRUM 


РОМЕО 


Rôle difficile que celui de Roméo. 
Surtout depuis qu'on a remplacé son échelle par une 
catapulte! 
Vous avez dix essais pour sauver votre bien-aimée. 
Calculez soigneusement le poids de la charge 
qui tombera sur la catapulte et indiquez-le simplement 
à votre ordinateur. 


LET score-8: LET 1150: LET tou 


+ GO SUB 1000: PAPER @: BORDER O: INK 4: CLS 
"ай: REM eric caberia 
5 RANDOMIZE 
6 CLS : ВЕЕР .5,й: PRINT INK 2; "гомео devra sauver Juliette le Plus de fois 
Possibles en 18 Catapultages "bonne chance!!!" 
8 PRINT AT 21.0; INK 1; FLASH 1; PAPER 7;;" PRESSEZ UNE TOUCHE Мне 
AUSE à: CLS 
18 REM tour 
11 LET хегй: LET u=8 
15 PRINT AT й, 26; INK S;"Ho:";tour 
28 PRINT AT 4,1; INK 1; "alle" 
за FOR f-5 TO 21 
35 PRINT AT Ғ,2; INK 1; "ШИН". НЕХТ f 
40 PRINT AT 21,18; "0": PLOT 64,8: DRAH 37,16 
42 INK 3: PLOT 100,175: DRAW B,-25: PRINT RT 3,12;"E": ІНК 4 
45 LET z-INT СЕМПрЖ11247 
50 PRINT HT x,s;"E" 
55 PRINT HT 2,7; PAPER 2; INK бз "а" 
64 INPUT "entrez Poids (max 15 kilos)";P 
65 IF Р<1 ОК P515 THEN GO ТО 68 
LET touretour+i 
FOR f=3 TO 19: PRINT AT Ғ,12; INK 3; 
NEXT f 
75 PLOT 64,8: DRAM OVER 1:37,16: PLOT 64,16: DRAH 37,-16 
88 PRINT RT x,w;" " 
ЭЙ FOR f=1 TO P: PRINT RT хоз)" ": LET x=x-1: PRINT RT ку "Е": ВЕЕР .05,х%2: 
NEXT f 
108 IF хэт THEN PRINT НТ х,у+3; INK 2;"F F F F": FOR #+1 ТО 5: ВЕЕР .1,10: ВЕЕР 
.2,5: ВЕЕР .1,18: ВЕЕР .1,3: NEXT f: PRINT AT 9,9; FLASH 1; PAPER 1; INK 7:" 


OV 
sn 


: ВЕЕР .94,f#3/2: PRINT AT Ғ,12; 


bravo Juliette est sauvee ": FOR f=1 TO 20: PAUSE 5: OUT 254.f: MEAT f: LET 5 
core-score*l 

118 IF x42z THEN PRINT RT x,9;" ": FOR f-x TO 21: PRINT RT f,sw;"D": ВЕЕР ,04,f: 
PRINT AT fous" ": NEXT f: PRINT AT 21,8;"C": ВЕЕР 1,-20 

128 IF оше? 18 THEN CLS : GO TO 14 

125 CLS 


139 PRINT НТ &,9; INK 6;"resultats" 

135 IF score»hi THEN LET hi-score 

149 PRINT AT 5,8; INK 1; PAPER 7; FLASH 1;"SCORE ";score 
145 PRINT AT 7,0; ІНК 1; PAPER 7; FLASH 1; "HIGH SCORE "¿hi 
L 
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150 PRINT HT 21,8; INK 2; PAPER 7; FLASH 15" - PRESSEZ ПМЕ TOUCHE ERR 
USE A: LET score=0: LET tour=@: GO TO 2 
1000 FOR F=USR "a" ТО USR "f"+? 

1818 READ user: POKE f,user 

1020 НЕХТ f: RETURN 

1030 DATA 255,169,255, 169,255, 169, 169,255 
1840 DATA 126.68,68,126.126.118,118.126 
1050 DATA 0,0.8,0,8,24, 126,255 

1960 DATA 128,192,224,224,224,192,192,128 
1070 DATA 56.40., 146,124, 16, 56, 49,188 

1080 DATA 102,255,255. 255, 127,62,28,8 


COMMENTAIRES : Ligne 70 à 80 : chute du poids 
Ligne 90 : catapultage 
Ligne 100 : partie gagnée 


Ligne 1 : initialisation des variables Ligne 110 : fin de partie 
du jeu Ligne 120 : test de compteur de tour 
Ligne 6 à 8 : instructions du jeu Ligne 1000 à 1020 : routine de 


Ligne 11 à 42 : dessin de la tour chargement des caractères 
Ligne 50 à 55 : dessin de la fenetre Ligne 1030 à 1080 : DATAS des caractères 


REBOND SURPRISE 


Récupérez les balles qui tombent du haut de l'écran. 
Votre panier se ur pi gráce aux touches 
e 


1 REM iHHHHHHHHHHHHHHHHHHBHHHHBHHHHHEHHHHBHHHHHHHBHHHHHBHEHHHHBNE 
Eric СННЕТОМ 1985 
ЭННННННННННННННИНИНННННИННННННИНННННННИННННННИНННННИНННННИННННННЕ 
PAPER Ø: BORDER Ø: INK 5: CLS : GO SUB 188 
GO SUB 9000 
DIM к(32): LET зсяй: LET u=5: LET y=19 
GO SUE зва 
PRINT AT 21:0; FLASH 1; INK 3; PAPER 5;"W score змии" 
PRINT AT й, FRPER 6; INK 2;" Eric CHARTON 1985 
IF ІМКЕҮФ="8" AND ч<3@ THEN LET y=u+1: GO SUB 2000 
IF INKEY$="5" AND 928 THEM LET s-s-1: GO SUB 1000 
Gü SUE 3808 x 
IF «чво ОК y+1=0) AND u=17 THEN ВЕЕР 1,5: LET u-1: GO SUB app: GO SUB 700G 
со то ій 
DATA ВІН йййййййй 
DATA ВІН 00011000 
DATA BIN 00111100 
DATA ВІН 01111110 
DATA БІН 11111111 
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156 DATA БІН 81111118 
168 DATA БІН 00111100 
17й DATA БІН 00011000 
200 FOR К=0 TO 7: READ =: 
зай DATA БІН 01110000 
318 DATA BIN 01111080 
зай DATA BIN 00111106 
зза DATA БІН 00011100 
340 САТА БІН 00001100 
зов DATA BIH 000091111 
368 DATA БІН 0009000111 
зїй DATA BIN 98984111 
400 FOR кей TO 7: READ z: POKE USR 
зай DATA BIH 00001110 

510 DATA BIN 00011110 

528 DATA BIN 00111100 

520 DATA BIN 00111000 

540 DATA БІН 00110000 

558 DATA BIN 11118888 

Dep DATA BIN 11100000 

зүй DATA BIN 11100000 


POKE USR 


600 FOR k=0 ТО 7: READ 2: POKE USR "c"+k,z: NEXT k 
650 RETURN 

200 PRINT AT 17,4; INK 3;"YXf": RETURN 

1000 PRINT AT 17,4: INK 3; "МИ RETURN 

2080 PRINT RT 17,ч-2; INK 35" W": RETURN 


3000 IF u=5 THEN LET o=INT <ЕМОЖЗ1): 
3818 LET u=u+1: PRINT RT ц-1,0; 
SUB 9200 


3050 RETURN 

TOOG IF епс=3 THEN GO ТО 8000 

7085 

7010 LET зсоғезепсЖж1й 

7019 PRINT RT 15,0; INK 4; 

7020 PRINT AT 15,05" Си 
1;":";sc: RETURN 

B004 PRINT HT 16,9; FLASH 1; PAPER oi 
: ВЕЕР 1/100,х-8: ВЕЕР 1/15й,х+? 

8010 HEXT x 

8929 CLEAR : GO TO 4 

9080 LET f=21: FOR e-8 ТО 11 

9095 ВЕЕР 1/90,Ғ 

9010 PRINT НТ #,0; PAPER 45" 

9020 PRINT AT е,й; PAPER di" 

9030 LET fzf-1: NEXT е 

9040 LET f=21: FÜR е=0 TO 11 

9845 ВЕЕР 1/90,е 

заза PRINT HT #,й; PAPER B;" 

9868 PRINT AT е,й; PAPER 0;" 

9070 LET Ғ-Ғ-1: NEXT e 

2080 RETURN 

9200 LET P=0: LET "(0+1051: 

Sese RETURN 

эзйй GO TO 2000 


LET епс=1+1НТ CRNDX?) 
ІНК enc;" "JAT w0;"e": 


IF enc=2 THEM LET зсогез-4й: 00 TO 7015 


PAPER Giscore: FOR 8-1 TO 30: 
LET sc-sc*score: 


INK 6; "perdu": 


FOR ігі ТО 31: 


"a"+k:z: NEXT k 


"b"*k,z: NEXT К 


IF u=18 THEM LET uz1: GO 


NEXT a 


PRINT RT 21,15: INK 1; PAFER 6; FLASH 


FOR х=й TO 43: ВЕЕР 1⁄200,x 


LET рер+и то: IF P=31 THEN GO TO 9300 


9999 SAVE "balloons" LINE 1 
COMMENTAIRES : 
Ligne 2 : initialisation de l'écran 
Ligne 5 : initialisation des variables 
du jeu G 
Ligne 7 à 8 : affichage du haut de 
l'écran 


Ligne 10 à 20 : test du clavier 
Ligne 100 à 200 : redéfinition du 
caractére de la balle 

Ligne 300 à 400 : redéfinition du 


caractére de la paniére gauche 
Ligne 500 à 400 : redéfinition du 
caractére de la paniére droite 
Ligne 900 à 2000 : affichage de la 
panière à l'écran 
Ligne 3000 à 3050 : 
balle à l'écran 
Ligne 7000 à 7020 : 
affichage 

Ligne 8000 à 9300 : 


affichage de la 
calcul du score et 


fin de la partie P 
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NIMITZ 


Les réserves de carburant de votre Mirage 2000 
sont presque épuisées. 
Le porte-avion Nimitz est votre seul espoir de survie. 
Réussirez-vous à l'atteindre 
et à aponter 
sans trop de dégâts ? 
5 = gauche, 6 = bas, 7 = haut et 8 = droite. 


1 RESTORE : BORDER Ø: PAPER 8: INK 4: CLS : REM eric 

2 FOR Ғей TO 21: PRINT PAPER INT СЕМПЖ/291:" "jt 
PRINT HT f.RMDX23; INK INT CRHD#63+1; FLASH 1; "ЖМІМІТЕЖ": ВЕЕР .01,Ғ: MEXT f: В 
EEP 1,-1й: GO SUB 2888 

3 BORDER Ø: PAPER 5: ІМК 4: CLS 
5 РОК f=1 ТО 18: ВЕЕР „й1,#: NEXT f: INPUT "niveauci-G2";3 
6 IF 441 OR 426 THEN СО TO 5 
? 
19 


LET пе НТ (2874) 
FOR f=15 TO 21: PRINT AT f,0; PAPER 15" "Н 


"e LET Уей: LET temPs=ÿ: LET #це1=5@ 
: LET x91 


ЗӨ PRINT AT хоз; INK у та" 

35 LET temps=temPs+1 

40 IF х=13 THEN GO SUB 1000 

50 ВЕЕР .123,-30 ` 

55 PRINT AT х,у; INK й; "в": FOR f=1 TO 2: NEXT f 
56 PRINT AT 21,1 INK 7: PAPER 2; ЇМК H;"fuel:";fuel 
57 PRINT RT х,у; " 

58 IF fuel=10 THEN PRINT AT 21,16; PAPER 2;" " 
58 IF INKEY#="5" THEM LET чяч-1 

70 IF ІНКЕҮФ="8" THEM LET y=y+1 

88 IF INKEYS="6" THEN LET хех+1 

за IF INKEY$="7" THEM LET x-x-1 

95 LET fuelsfuel-1 

100 IF vitz» THEM LET vitsg: GO SUB гай 


IF 89228 THEN LET ЭН ze Hi 
= с =) + ВЕЕР 04: £: Fous INK B; 

TRI ET, "Деде „объ D 14: ,8Е уг E Ба ERTUT BT, oep getii 
8: PRINT AT 14,9; ІНК 2; PAPER 5:"5": ВЕЕР .й8,-15: PRINT HT 14,9: ІНК 2; PAPER 
Si"H": ВЕЕР .B1,-20: PRINT RT 14,9; PAPER 5;" ": FOR Ғ-1 TO 300: МЕХТ f: PAUSE B 
‘ BD TO 1 

148 LET vit=vit+1 

158 50 TO 38 

210 PRINT HT 13,5)" "+ PRINT AT 14,b;" 3 

230 LET ветнт СЕНПЖ207-5 š 

235 РОК f=1 То 3 
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240 PRINT ІНК 2; НТ 13,544; 
242 NEXT f: RETURN 


š: FOR f=1 TO 3508: NEXT f: BU TU 1 
КЕТЧЕН 

FOR f "a" TO USR "hire 

КЕНІ) : РОКЕ f,user 

НЕХТ f: RETURH 


DATA 28,8.128,255,171,295,255,68 
DATA 255,127,63,31,15,7,3,1 


ГАТА 42,129,43,128,43,28.41,82 
DATA A, 0,42, 64, 42, 64. 42,0 
DATA 8,0,0,24,24,0,0,0 


INK 2; BRIGHT 9; "d" 
IF ATTE (х%1,м%120-40 THEN PRINT RT 21,0; PAPER 7; FLASH 1; INK li"temPs:"; t 


DATA 255.: 8. 128, 255. 171, 255.255. 60 


DATA 255, 24., 252, 242, 240, 224, 192. 128 
DATA 255., 255. 255 85; 299, 299, 295. 299 


FRIHT AT 14,5; INK B;"CEEEED" 


COMMENTAIRES : 
Ligne 1 : initialisation de l'écran 
Ligne 2 : affichage de la présentation 
Ligne 5 à é : choix du niveau de jeu 
Ligne 12 à 25 : initialisation des 
variables du jeu 

Ligne 59 à 90 : tests clavier pour les 
déplacements de 1”ауіоп 

Ligne 100 à 130 : tests de limite de jeu 


Ligne 135 à 210 : test et affichage du 
crash 

Ligne 220 à 242 : déplacement du 
porte-avion 

Ligne 1000 à 1100 : test de collision 
Ligne 2000 à 2030 : routine de 
chargement des caractères 

Ligne 2040 à 3010 : DATAS des caractères 
graphiques 


GHOST PAINTER! 


Des fantômes se ruent sur vous 


dès que vous vous mettez à repeindre une pièce. 


De plus, vos réserves de peinture 
s'épuisent à toute allure, 


vous obligeant à refaire le chemin déjà parcouru. 


Utilisez les touches 


5 — gauche, 6 - haut, 7 — bas et 8 - droite 
si vous voulez vous en sortir. 


18 REM ЖЭЖЖЖЖЖЖЖХЖЖЖЖЭЭЖЖЖХЖЖЖЖ 
20 REM Ж TILT 2% SPECTRUM Ж 


60 LET А 
61 LET Ж 
62 LET Ж: 
55 


78 REM INITIRLISHT 
75 LET Тей 
ва LET 8 


бо SUE 3984 
РЕТНТ AT 1,8; 
PRINT AT 21,8; 


55 REM VARIABLES POSITIOM DE 
8: LET Y1=10 

8: LET Y2=18 

LET Y3-6 


FÜR F=2 TO 28: PRINT АТ F.8; 
BEI 
REM TEST CLAVIER + TESTS 


JOUEUR 


L'ORDINATEUR 


ION DU TEMPS ЕТ DU SCORE 


REM AFFICHAGE TERRAIN 


ІНЕ Eg M rr remm 


ІНЕ 6; или 


INK 6;"=";RT F,31; 
COLLISIONS 


INK 6;"-": 


NEXT Е 
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218 LET A$=IHKEYS 4 
211 LET T=T+1 

` 812 IF A$="" THEM PRINT AT 8.8; INK 4;"5ГОВЕ:";5С; INK S;" TEMPS:";T; INK 3;" V 
TERTIA E 
213 IF A$="" THEN GO ТО 235 


214 LET SC-SC*1 
215 IF Т<4@ THEN PRINT RT X,Y; INK 59" 
216 IF T»-48 THEN PRINT AT X.Y; INK 2; PAPER on": LET SC-SC-1 AHD SC»8 


217 IF сек OR W2-X OR K3=#) AND (ЕТ OR УВЕУ ПЕ Y3=Y) THEM IF Тэз4й THEN ВЕЕ 
Pod i4: ШЕТ Vi LET Тай: IF Y=-1 THEM СО TO 2000 

220 LET хэхжСН8-"6" AND RTTR СХФ1.Ү2СУ7й7-СН95 "?" AND RTTR CX-1, Y «2782 

222 LET YeY+CA$="S" AND ATTR CH, Y-12&2785-CRS-"S" AND RTTR CH, Y-10627H2 

238 PRINT RT X,Y; INK 2; "а" 

231 IF 4-11 AND Y=28 THEN LET T=@: FOR К=й TO 40: ВЕЕР .001,F: ВЕЕР .üB2.F*1B: 
HEXT Е 

235 IF Т>2й THEN PRINT AT #1,Y1; INK 2; PAPER й;" "GAT #2,%25" "JAT Wa, Y3;" "s 
GO То 248 

236 00 TO 219 

240 IF INT СЕНОЖЗ #1 THEN LET Х15516СХЭХ1 AND RTTR <К1+1,7125662-( 81 АМО RTTR 
си 1-1, У1 662 

Е IF INT &RMDX32-2 THEM LET ханха+скъка AND RTTR CK2+1,Y23=66)-CX<#2 AND RTTF 
552-1,Ү22ш66) 

242 IF INT (RMDX3)-8 THEN LET X3=%3+(X2%3 AND RTTR (553%1,Ү30-662-6 4583 AND RTTR 
CN3-1, Ÿ32=66 2 

242 IF INT СЕНОЖЗ #1 THEM LET Yl=Y1+CY>Y1 AND RTTR (51,Ү1%12-662-6Ү<Ү1 AND RTTR 
1, У1-1 2662 

245 (Е INT (ЕМрЖЗ2-2 THEM LET Y2=Y2+CY>Y2 AND RTTR C2, Y2415z662-CY4Y2 AND ATTR 
CAS: У2-1 2662 

247 IF INT СЕНОЖЗО-0 THEM LET ҮЗ=ҮЗ+СҮ>ҮЗ AND ATTR (83, Y3+1 2266 )-(У<УЗ AND FITTR 
из, 31 2266) 

25H PRINT AT жіті; INK "g" 

251 PRINT AT ха, Y2; INK 3; "Е" 

252 PRINT AT #3, У3; INK 1;"G" 

508 GO то 210 1 

ШИШЕ БЕП инан RT TIC дыг 

2005 REM VOUS AVEZ PERDU! 

2010 FOR Е=й TO 30 STEP 4: PRINT RT SA INK 6; "2": ВЕЕР .1,F: PRINT AT МҮ; ІНК 
4; "Е": ВЕЕР .1,F+10: NEXT Е 

2020 PAUSE 0: RUN 

EE ыса сала nee Ft 

9005 REM КЕОЕРТНТТТОН DES CHRS 

9919 FOR F-USR "A" TO USR "E"-1 

S815 READ A 

S020 POKE F.A 

9025 NEXT F 

заза DATA 255. 125 129, 255. 255. 129, 129., 255. 60, 66, 255, 66, 122. 122. 66. 295, 56, 108, 254 
: 38,62, 126, 124, 56, 56, 126, 255, 201, 201, 255, 251, 209 

9035 BORDER 1: PAPER Ø: INK 2: CLS 
2040 CLS 

9050 PRINT HT 10,27; INK 6; "m" 
9055 PRINT AT 12,27; INK 6: "===" 
9060 PRINT HT 11,38; ІМК 3; FLASH 1; 
9070 POKE 23562,1: POKE 23561,8: POKE 23609,10 
9100 RETURN 


COMMENTAIRES : Ligne 90 à 115 : affichage du terrain 
Ligne 205 à 500 : test clavier et test 
des collisions 


Ligne 10 à 35 : présentation du jeu Ligne 2000 à 2020 : test de fin de 
Ligne 40 à 50 : initialisation des partie d 
variables du joueur Ligne 9000 à 9025 : redéfinition des 
Ligne 55 à 65 : initialisation des caractères 

variables des fantomes Ligne 9030 : DATAS des caractères 
Ligne 70 à 85 : initialisation du temps graphiques 

et score Ligne 9035 à 9100 : affichage écran 


130 


ОВК 1/ATMOS 


LAS VEGAS 


Retrouvez le grand frisson des salles de jeux 
et empochez la monnaie grâce à votre fidèle ordinateur. 
Pour lancer le jeu, 
il suffit de presser la barre d'espace. 


18 
15 
20 
25 
28 
за 
35 
ай 
за 
64 
та 
ва 
за 
95 


тай 
1й5 
118 
113 
128 
138 


CLS: PAPERS : INKS 

FOKE 618,10 

Рафа: РОТ 18.1."18" 

IF РЕЕКСЕЕҮО8 -Н3й THEM 35 

FOR Іші ТО S:READA:MEXT 

FÜR 1546856 TO 47063: ВЕНО А: РОКЕ Т, А: НЕХТ 
M=" "C MSRECHRSIC 3) 

ASC 1 29 CHRSC P2" i 4" ARE 2 СНЕС POET" 
HREL einer": ASC 4 )9CHRISC +" ah" 
R“ D Y» CHESKC 2 2 "uv" : AGE 6 y=CHR660 2 At unc 
Rú 7 2SCHRÉCS +" qp" Dër В 29 HRSG S +" st" 


AHE 9 »-CHRIC1 2+ "mn" : RC 18 22 CHRSC 1 >+" ap " 
FOR 151 То 18:R$CIO-R$CIO*NEB:HERT 

КЕМ 

REM DECOR 

REM 

FOR 152 TO 18:PLOT 1,5, "с": PLOT I,25,"d" 

PLOT 1,9, "с": РОТ 1,16, "d"  МЕАТ 

FOR І=6 ТО 24:PLOT 2, 1, "а": РСОТ 18, 1, "Ы" :НЕХТ 
PLOT De, 1:PLOT 15, 7, 3: РОТ 6,7, "АЗ VEGAS" 


135 PLOT 4, 23, 21: Рот 9,23,16:РГОТ 1й,23,8 


148 


PLOT 5.23,"28C":FÜRI-19 ТО 21:PLOT 6,1, "1": NEXT 


145 PLOT 1,1,7:FLOT 1,3,4: РОТ 23,1,3:PLOT 23, 3,3 

147 PLOT 2,1,"РІЕСЕ5 DE 24C:":PLOT 2,3,"GAIN:" 

158 2ФчГНЕФ(253) 

164 FOR 1:1й TO 15:PLOT ?.I,ZS:PLOT 12,1,2%:РІ0Т S,1,3:PLOTIG, I3 


165 
178 
184 
190 


PLOT 15.1.3МЕХТ 

PLOT 19.18,"cca":PLOT 19,19, "dda" 

FOR 1513 TO 17:PLOT 21,1,"а":НЕХТ 

PLOT 19,12.1:PLOT 22,12,3:Р10Т 29,12, "yz" 


288 PLOT 11,88, "“cc-":PLOT 11,17,"cccc":PLOT 11,21, "Зава" 
285 FORI=18 TO 28:PLOT 11,1, "а b":MEXT 

218 FOR Ічй TO 25:PLOT 24.I,"b":PLOT 38,1,"a":MEXT. 

220 FOR 1-0 TO 28 STEP 5 

238 PLOT 25,1."ddddddddadddd" : NEXT 

гай PLOT 25,25."ссссссссссссс" 

250 PLOT 26,2,"jjijij 3y50":PLOT 26,3,"К1К1К1 2318" 


Je 
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PLOT 26,7, "еғеғеғ SS ues cena Ce 
PLOT 26,12, 1 

Рот 26,17," 
PLOT 26.22, "mmm 


ОТ 26, 18, "ststet E уар" 
SHIB":PLOT 26,23,"оророр 2301" 
FOR 152 ТО 22 STEP 5 

A КЕНІ A:PLOT 25, 1, А: РОТ 25, IAIA PLOT 32, 1, 3: РОТ 22, 1+1,3: НЕКТ 
DATA Ү,6,2,5,1 

4 REM 

FEN  RCTIOH 

PLOT в, 3, МФ PLOT 8.3,5ТЕ СОНО-РЫПТ 3,23,12 

IF GA“ THEH FOR I-1TQ GA:PING:HAIT 48: НЕХТ 

! GET Ке: РОТ 5,89,8:FORK=STO1SSTEPS:PLOT xX.12.H$:FLO 


13: МФ: НЕК 


C=B:P=P-1:IF Р<й THEN 650 

PLOT 18,1, МЕ РОТ 18,1, ЗТЕФСРУ 

ЕоКтегайто1азтеР-1а: 5009 1.I.18:HEXT:SDOUHD 1,1.8:MRIT 48 
8 СНЕЙ: РОТ 8,3.M&:PLOT 8, 3, STRSCGR > 

360 FÜR қаз ТО 13 STEP 5 

270 C=C+1 

380 Hr Cie INTÉ ENDC 1 F152+1:H=HeC à 

ЗЭВ IF Н<6 THEM НЕС 3-5 

408 IF H25 AHD Н<18 THEN НСС) 
418 IF НЭЭ AND H£13 THEM НСС 
428 IF H>12BHD Н<15 THEM H Cie? 

438 IF Нч15 THEM НЕС 1 

435 së 

440 FOR Tei TO 20 

428 MWebb*l:G-IMTCRHDCI YES Al: GGZ 

460 PLOT xX.12,R$6G-12:PLOT X. ‚13, R$. G 

465 SOUND 1,6G*2 #14, 10 

370 MAIT M:PLÜT к, 12, МИ РОТ xX,13.M&:SOUND 1,1,й: МЕХТ T 
475 PLOT к,12, А НСС): PLOT Х.13.РСНСС2919 

488 SOUNE 1, 1,8:MEXMT х 


L ГЕ GAIHE 
> г)=НС3› THEN 600 

: 5 НС3» THEN 358 

525 БЕП 2 EGAUS СОЕВИТ OU FIM) 

Не 1L-H Фази? IF H ziel THEN бН=1й 

535 Рер+сн 


4.13 


530 GA dira) 
бай GOTO 354 
650 REM FIM DU JEN 

£35 PLOT 1, 4, 2: РОТ 2.4.12 

&68 PLOT 3, 4, "PLUS ЫМ SOUS'":PLOT 16,4,8:PLOT 17.4,3 
ETO СЕТ ЕФ RUN 

S000 DATA 48,45,48,48,48,48,48,48 

3610 DATA 3.3.3,3.3.3 
SBO2B DATA B. 6,6, 0., 0, 6, 
S828 DATA &3,53,8, 8. E. а, 
5649 DATA 8,7,4)2; Де 
S036 DATA В, De, 8,16,32, 
зай DATA Р,15,15,15,31, 
сага DATA 56, 60.60. 62,63. Е 
Заза DATA я, 8, ез, 62 0. 0, 49, 42 
SBSE DATA й,й,62,62,й,й,12,42 


ES: РЕР+СА 


518й ГАТА 51.42.58,8,8,63,62,8 
5110 DATA 44,42,42,8,й,62,62,8 
5128 DATA 15,9,11,1,4,1й,9,8 

5138 DATA 8,32,32,й,й,29, 
5148 DATA 4, 
5158 DATA 62.28,8,32,3 
5168 DATA B,8.1,1,.8,14 
5170 DATA 8,48,48,32,8 


5120 DATA 63,83,63,63,62,31,14,0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
а CATA 
DATA 


LED pà = e ¿n 


COMMENTAIRES : 
Ligne 25 à 30 : redéfinition des 


caractëres 

Ligne 35 à 90 : chargement des dessins 
dans 4% () 

Ligne 95 à 320 : dessin du décor 

Ligne 352 : bruitage en cas de gain 
Ligne 353 à 358 : introduction de la 
pièce 

Ligne 360 à 480 : mouvement des 3 
rouleaux 

Ligne 370 à 430 : choix aléatoire du 


dessin à afficher lorsque le rouleau 
s'arrete 

Ligne 440 à 470 : mouvement d'un rouleau 
: affichages successifs de dessins 
choisis aléatoirement 

Ligne 490 à 640 : calcul des gains en 
fonction du nombre de dessins similaires 
Ligne 650 à 670 : fin de partie 

Ligne 5000 à 5250 : DATA pour Та 
redéfinition des caractères 

Ligne 6000 : DATA pour la couleur des 
dessins 


ORIC 1/ATMOS 


MEMORY 


Retrouvez dans un tableau les différentes formes de couleurs 
seulement es deux par deux. 
Pour jouer, entrez simplement les coordonnées 
de la case à jouer. 


5 PING 

18 TENT:CLS:PRFERB: IMKS 

12 POKE 6198,18 

20 IF РЕЕКС458И8 ep THEN За 

за FÜR 1-468й8 TO 47863:RERD D:POKE 1.0:МЕХТ 
59 REM == GRILLE == 

Ба С=СНЕФС 255 > 

та FOR J-5 TO 17 ЗТЕРЗ-РОЕ1-10 ТО 30 

за PLOT I, 1, Св МЕХТ I, 

за FOR I-18 ТО 38 STEPS:FOR.I-6 ТО 16 

100 PLOT Г. J СФ: МЕХТ 4.1 

118 FOR 156 TO 15 STEP 3:FüR 1514 ТО 29 STEP 5 
128 PLOT ОТ, 1, 3: РГОТ 1. +1, 3 НЕХТ 1.4 

138 PLOT 12,4,"1 2 3 4" 

6; "ү": РОТ 9,9,"2":PLOT 9,12, "3" РОТ 9,15, "4" 
"56713212" 

1 TO 122 STEP 4 

А МТО Св, C, 122 

HRC СНЕС I 28 CHRSC I1 2 

СНЕЖ DCH 142 2HCHR&EC 143 2: HEAT 
200 REM == REFARTITION == 

202 PLOT 2,2, "ЦН IHSTANT SVP..." 

205 FOR J-1 TO 2 


210 FOR Ізі ТО 8 
220 A=IHTS RME 1 #4 0+1 


238 e lHTCRHDC 1 24241 
240 IF Сок, Уж THEN 228 


СС, Y 381: NEXT HERT 

9 PLOT 2,2," с 

ВЕМ == DEPART == 

E=E+1 

PLOT 2,24.8ТЕЗСЕОФ" ESSRI:" 

FOR 141 то 2 

GET WS:NEVRLCONSO 

IF Х<1 DR 524 THEN 300 

PLOT 15, 24, ИСК ей 

GET Y$: rel YE) 

B IF Ү<1 OR Y>d THEN 328 

PLOT 16.24, Vë ЕУ 

СЕСК, ТО IF бей THEN PING:PLOT 15,24," ":GOTO 388 
2 ТЕ 282 AND 0017-0629 AND НОЕНС2О THEN PING:PLOT 15,24,"  ":GD 

то 200 

355 Хябжи+б:ү=зЗЖҮ+З: EE VC JD=Y 

зва PLOT M, Y.RECCO:PLDT Sr). BECCO 

365 FOR 1=5й TO 5 STEP-1:SOUND 1,1,12:NEXT:SOUND 1,1,9 

370 PLOT 15,24," " 

389 NEXT J 

398 IF МС12-МС2) THEN 458 

406 SDUND 1,5555,12 

418 WAIT 99 SOUND 1,1,0 

428 Еокте1 таа PLOT KEI) YEI)" " 

438 PLOT- ТО ИСТО ^ 

435 МЕХТ 

448 GOTO 278 

458 FORI=607090 : Sun, I; 12:NEXT 

455 FDRI-SHTDGHSTEP-1:SDUND 1,1,18:NEXT:SOUND 1,1,0 

468 FORI=1TOS: себе I2, HI 22-8: NEXT 

470 P=F+1:IF РЗ THEM 278 

475 ӘШІМ 1.18H,12:MHIT SE:SOUND 1,388,12:WRIT SB:SDUMD 1,298.12 

478 MAIT &B:SDUMD 1,1,8 

488 PLOT 2, 24, "ТКОПМЕ ЕМ" Те Ен" ESSAIS." 

аза PLOT 2,26, "WOULEZ-VOUS ВЕЛОЧЕВ O/H? т" 

Зай GET R$ 

519 IF Е®="М" THEN END 

515 IF RSX»"D" THEN Don 

зай RUM 

S000 DATA й,1,2,4,8,16:38,36 

5010 DATA 48,8,16,19,36,48,44,44 

5020 DATA 44,32. 17,10,5, 14, 16,8 

база DATA 56,43: 16,45. 32,0, 0,0 

5040 DATA й,7,4,2,1,3,7,7 

Заза DATA 0,56,8,16,32,48,96,56 

5068 DATA 7, 15,15,15,31,63,63,1 

5070 DATA 56,66. 56, 68, 62,62,63, 32 

зава DATA й,,0,0,15,31,63,56 

заза DATA 6,0,0,0, 6й,62,63,7 

S188 DATA 51,7,14,12,12,14,31,63 

8118 DATA 51,56,28, 12:44, 28, 62,63 

5120 DATA 16,9,11,11,4,1й,9,8 

5138 DATA й, 32, 32, 0:0, 28,62,58 

5148 DATA 4,2,2,14,15,15,7,й 

5158 DATA 62,28,й,32,32,32,й,8 

5168 DATA 7,8, 1, 1,8, 14,21. 63 

5178 DATA 6:48,48: 32,8, 56, 60, 62 

5188 DATA 63.63.63. 62,63, 31,14, B 

5190 ГАТА 36,43, 56., 62, 62, 60, 56,0 

5298 DATA 1,1,3,5,5,5,5,3 

5210 DATA 16,16,56,29,16,16, 16,56 
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S278 DATA- 
s280 DATA 


COMMENTAIRES : 


Ligne 20 à 30 : redéfinition des 
caractères 

Ligne 50 à 140 : dessin de la grille 
Ligne 145 à 180 : mise en variables des 
objets, avec leur couleur 

Ligne 200 à 260 : répartition des objets 
dans la grille 

Ligne 270 à 340 : saisie et affichage de 
la case choisie 

Ligne 350 à 352 : tests d'erreur : 2 
fois les memes coordonnées ou couple 
déjà trouvé 


Ligne 355 à 370 : affiche l'objet 

Ligne 390 : teste si un couple a déjà 
été trouvé 

Ligne 400 à 440 : les 2 objets sont 
différents, on les efface et on passe à 
l'essai suivant 

Ligne 450 à 470 : un couple a été trouvé 
=) bruit, mise à jour du score et de Та 
grille 

Ligne 475 à 520 : les 8 couples ont été 
trouvés : affiche le score et propose 
autre partie 

Ligne 5000 à 5310 : DATA pour 
redéfinition des caractères 


ORIC 1/ATMOS 


MUSIQU'ORIC 


Découvrez de nouvelles possibilités sonores 
et composez vos propres mélodies. 
Utilisez la fléche de droite pour augmenter le volume et 
la touche "^" pour le diminuer. 

La fléche vers le bas permet de passer directement à 
l'octave supérieure et celle de gauche à l'octave inférieure. 
"Slash" lance l'enregistrement de la note sur laquelle vous 

vous trouvez, "/" vous permet d'écouter 

vos ceuvres et "esc" fait le bilan de vos prestations... 


12 RESTORE 


OË) 

ІНЕЙ 

5, "OCTAYE: ":PLOT 18,5, STRECO) 

"dd MUSIQUE dd":PLOT 12,2, "Яа MUSIQUE dd" 

1,18:PLOT 2.2.10:PLOT 8,1,19:FLOT @,8,19:PLOT 1.2, 8:PLUTI, 


,5.28:IF IM-1 THEN 55 
:RERD C:PÜKEI,C:HEST 


2 
DATA 4,6,9, 
6 FüRI-1 ТО 36 
REAL 

NEXT 
> DATA 9,18,32,18,14,99,12,18,32,12,14,99 

DATA 15,18, 18,18,32,19,14,99,21,18,32 
ГАТА 22,14,99,24,18,32,25,14,99,27,18,32 
5 FORI=18 TO 13 


T acc 
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60 PLOT 8,1,23:Р10729,1,20 

PB НЕХТ 

73 FÜR Ізій TO 15 

88 РОТ 18,I,"cc cc ab" 

98 BPLOT-19»T;"cc cc ce" 

198 НЕХТ 

118 FOR 1516 ТО 19 

128 FLUT18O.I."ab ab ab ab ab ab" 
138 МЕХТ 

132 PLOTS,8," B2 G3 Bs me Өт" 
134 Sos SUE ҮЙҮ o Na SU" 
135 E "DO RE MI FR ӨСІН SI" 
148 REM ---- DEBUT ---- 

154 GET H$ 


151:-1Г LEE " THEH MUSIC 1,й,1,8:00Т70158 
152 IF T) THEN 398 

153 IF сай 

154 IF GOSUE 709 

152 IF Нета: сОТОРЯВ 

168 IF H=11 : сотогаа 


Y. 
161 IF H$-"B"THEH H=1 СОТОРЯВ 
162 IF М%="Ы" THEN НЕЗ:СОТОРАВ 
153 IF Не "Е" THEN H-5:GüTO288 
164 IF НФ- "Е" THEN H-6:GÜTO28A 
165 IF МФф-"Т" THEN Më: СОТОРАЙ 
156 IF H&-"2" THEN гвотогва 
le? IF N$="3" THEN : GOTOZOG 


168 IF THEN :сотогай 
163 IF THEH : GOTOZAG 
170 IF Nie v" THEN H=12 : сотогай 


171 IF Нет "С" THEN LsL-3:GüTOS38 

172 ДЕ мее "2" THEN ото8зе 

175 IF МӨ-СЕС8? ТНЕН 0=0-1 : GOSLIBSE] 
180 IF МзеГНЕзс 14) THEN 0=0+1 :605085009 
1821Е НЯ<СНЕФ 11) THEN Y=4-1 : 50508609 
184 IF нее СНЕФС 93 THEN УзУ+1  СОЗПВБЯВ 
190 GOTO 158 

200 MUSIC 1.0.N,V 

202 PLOT WY- Z 

203 МеЗЖМ-2 

204 Ро M: Yep MH 5: Z=PCM+2 > 
285 PLOT NN, "е" 

206 IF РЕЕК(5202<>56 THEN 206 
208 MUSIC 1,0.H.8 

218 GOTO 156 

500 REM ---- ПСТНУЕ ---- 

518 ІР 049 THEN П-й 

S28 IF Oe THEN 0=6 

зай PLOT1O. 5, STRE 0>) 

545 FLüT18.5.H 

546 MUSIC LOMY 

558 RETURN 

бай REM ---- VOLUME ---- 

618 IF М215 THEN '=15 

620 IF V<ü THEN Уза 

630 PLOT32.12." "“РІПТ 32.12. STREE YO 
548 MUSIC 1,0,H,% 

650 БЕТПЕН 


LUE 
4 THEN БЕТПЕН 
705 FOR 1-3 ТО L STEP 3 


ЕТО НЕЕСТ+1 2: T-EC 1823 

IF тей THEN MUSIC 1.0,1.0:МН1Т48:00Т0 FEA 
MUSIC 1,0,H,% 

TRE OS: PLOTIB, S. 1 


E 2-РОМЕ2Э 


WAIT T: MUSIC LLLA 
МЕЯТ 
БЕТМШЕМ 
REM ---- EHREGISTRE ---- 
PLOT 38,B8,"C H B P R":PLOT 29,8,7 
М! C 1.8.1.8 
PLOT 2,8,S8TR&CL/^3 2 
Эй THEN РЕТНТ"ЗТОР" 
1: PF d Y: PRINT : PRINT: PRINT :PEIHT :FEINT 
"а" THEN TOSSE 
а ТО 28 STEP 2: ЗСЕЗСЕНСТ,Й? 
06282 IPER PLOT 1,9, СНЕЖ SC+128): GOTO 835 


то L STEP 3 
-ЕС1412:1Т6ЕС1622 
303 HOTE: "ii" DUREE: "Т 


: PRINT 
„БЕТ RS 


й РЕТНТ"ЕНСОВЕ сон" 
A IF Е%="П" THEN 900 
A IF Е%="М" THEN 1000 
5 PRIHT 
е 
[5] 
1 


ipi LD LD to to t tu 


RIHMT:IMPLIT"RETOLIR AU PROGRAMME “ÜH 3" ; F$ 
аре" N" THEM END 

ü" THEN INs1:CLS :GOTO24 
: GU TOL DO 


COMMENTAIRES : Ligne O à 135 : initialisation, décor et 
redéfinition des caractères 
Ligne 150 à 190 : saisie des touches 


raa 


Touches : Volume + fort: -› / - fort : Ligne 175 à 180 : modification de 
Е: l'octave 

octave +:#1ёсһе vers le bas / Ligne 182 à 184 : modification du volume 
Сава Ligne 200 à 210 : joue la note et 
enregistre la note sur laquelle on se affiche la main 
trouve : Ligne 500 à 550 : gestion de 1“ ос ауе 
durée de la note enregistrée : croche, Ligne 600 à 650 : gestion du volume 
noire, blanche, bpointée, ronde, Ligne 700 à 780 : joue le morceau 
O=silence enregistré 
écouter : Z Ligne 800 à 840 : enregistrement d’une 
efface : la dernière note : j toutes note 
les notes : 2 Ligne 850 à 1020 : affiche les octaves, 
fin et bilan : ESC notes et durée du morceau 
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ORIC 1/ATMOS 


CARAMBOLAGE 


Au volant de votre bolide, 
parcourez un labyrinthe sans jamais entrer en collision avec 
une autre voiture. 
pour vous diriger, utilisez 165 quatre touches d'édition. 


5 РОКЕ 618.18 
В M18:Y-18: Vibe"b" ей Вей бе смей 
ЕА тас En Le 


1546856 ТО 46887: READC : FOKET , С: НЕКТ 

18 CLS: PAPER: ТНКЗ: РТНС 

20 РЕТНТ: РЕТНТ : РЕТНТ 

22 PLOT 1) 8, ?: РОТ 1,1,2 

за PLOT 13, 8, "CARAMBOLAGE" 

35 PLOT 1,1,2:РІПТ 12,1,------------- i 

за GITO 108 . 

48 IF Vis"a" THEN RETURN 

41 IF Мут AND SCRHCM.H-1342255 THEM МеМН-2:БЕТШЕН 
482 IF Мет AMD БСЕНСМ, Hai 255 THEM H=H+2 : RETURN 
44 БЕТШЕМ 

45 IF vsb" THEN РЕТШЕМ 

46 IF Méx AND ЗСЕМСМ+1, М9 2259 THEM М=М-+2 : RETURN 
Y IF Мэк AND ЗСЕНСМ-1, НМ 2255 THEM МеМ-2:РЕТМЕН 


Y=Y-M: IF 
Sizs"b":IF SCRIE КА, Үз 255 THEM пе-1 "RETURN 
H 


Cp Def: ysna": IF SCRHEE, Y+1 2258 THEM Hz-1:RETURH 
SB Hei ВЕТИЕН 


9 THEM G=-1:RETURH 
Ше "с": ДЕ SERHE M Н+ 1 2=259 THEM H=-1:RETURH 


ЕТШЕ 
= PARCOURS == 


Fed: G=31 : H=21 : C$=CHRE 255): J=5 

145 FOR Ізі TO J 

128 FOR нер То D+ PLOT К.Е. СФ: РОТ К,Е+Н, С: НЕХТ 
160 FÜR Ү=Е+] TO F+H:PLOT D,Y, C: PLOT рес, Св: НЕХТ 
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- 


1 
1 
1 
1 
1 
А 
2 
z 


Sala DATA 45.63.45.12., 45.6 
5й2й DATA й,21,18,63.63,18, 


Герт: Е=Е+2: 656-4 :Н=Н-4: НЕХТ 
IF Cé="," THEN 198 
р=4: Е=5:5=29:Н=19:0%=", "зе GOTO 145 
PLOT 12.14. ne "PLOT 12,186."HI-SC:":PLOT 18.16. STRSCHIO 
pg" "PLOT 25,14,3: PLOT25, 16,3 
FOR 155 TO 11: PLAT 17, 1, CH: HEAT 
FOR I= 18 та, 24 PLAT 17, 1, С# НЕАТ 
ps" 
5 1513 TU 1&:PLOT 4,I,C$:PLOT 27?.1.08:MEXT 
ЕЕ РОТ Ку, МВ 
PLOT HAN. US 
DEBUT == 


mtn tnc ll 


OV CD em cn ci cao on cu im ОЛ ы 


DJ [à Po i X 


SC-SC-18:CP-CP-1:PLOT 18,14, ТЕ ВС ТЕ СР=224 THE 


#5 THEN GüslE 58 

5 0R 5=100 THEN 18 

) а: РОТ VAN, Ме 

428 PLOT MH, PR: Hehe: H=H+H 

=17 ПЕ Ме2й THENGOSUE4G 
=1З DR Help THEHGOSUE4S 
H6 mn Ho 
7 ОЕ S=38 THEN 1000 

55 THEM MzhM-G:MzM-H:GÜSLB 82 


1818 EXPLODE:PRPERI:FLDT Xo 
1815 IF SCOHI THEN HI=SC 
16020 PRIHMT"LUME AUTRE PARTIE £104H5:"; :GET RẸ 


1929 "0" AND Е&<>"Н" THEN PRIMTCHRSC 112: GOTO 1828 
ie d |" "THEN EHD 
1048 Step: СРЕЙЦОТО 18 


айй DATA 42,51,45,12,12,45,21,42 
Saez DATA 8,5118, 45, 45,18, 


— 
COMMENTAIRES : Ligne 230 à 340 : saisie de la touche 
frappée 
Ligne 0 à 39 : initialisation et Ligne 345 à 410 : mouvement de la 
redéfinition des caractères voiture du joueur 
Ligne 40 à 80 : changement de direction Ligne 420 à 450 : mouvement de la 
: voiture du joueur voiture де 170810 
Ligne 85à 95 : changement de direction : Ligne 700 à 720 : fin de tableau 
voiture de 170810 Ligne 1000 à 1040 : perte et fin de 
Ligne 100 à 226 : dessin du parcours partie > 
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ORIC 1/ATMOS 


ATTENTION FRAGILE 


Grâce à votre panier, bloquez la balle 
qui rebondit de murs en murs 
avant qu'elle ne casse votre précieux verre à pied. 
Utilisez les touches : A pour aller en haut, 
Z pour aller en bas, 
< pour aller à droite, > pour aller à gauche. 


m абе Вей: Mge" " “| 

D Gels: ге ме Eps" " 

18 TEXT:CLS:FRPERB: INKS 

12 РОКЕ 618,16 

859 062 THEN dp . 

856 ТО 46343:REHD D:POKE 1.0: НЕКТ 

: prim" “ phs H 
DECOR = 

/ k":PLOT 1,3,4 BLOT 1.26.4 

й FÜR = TO :PLOT 1.3 :PLOT ОТ, 26, СФ: НЕХТ 

2 PLOT 27.14.04:РЇ ОТ 7, 14, С РОТ 16,6,C#:PLOT 2822.24.08 PLOT 11.28 

C 


73 PLOT в, 19, C#:PLOT 23,4,E9:PLOT 26. 12,08 
75 CCHS 2552 


20 FÜR Із4 ТО 25:PLOT S,1,C#:PLOT ЗЕ, 1, С#: НЕХТ 

82 Ce" у" 

Эй FÜR 1519 ТО 19:FLOT 14,1,C$:PLOT 23, 1,C#:PLOT I+ds19,C#:PLOT I4 
„19, Св 


95 MEXT 

100 FORE 1212 TO 1?:PLOT 16,1,C#:PLOT 21,1,C$:PLOT I+d,18,Cé:PLOT I4 
ІР, 

105 MEXT: PLOT 1,9, F:PLOT 1,2,1 
118 FLOT 17.14 CHEE 1 54" fa" + CHRSE 
115 PLOT 17,15, СНЕФС 1 At На "+СНЕФ 
120 PLOT х.т, A$:PLOT Nit, Pë 
122 PLOT 12,8, "SCORE : "4STRSC > 
188 PLOT 12,2, "RECORD : "+STR#C HI à 
134 REM === ЛЕШЕ === 

„| 148 РЕРЕЕКС #2082: IF Р=56 THEN 388 
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ТНЕН В=-1 
: THEN Hi 
THEN Ве-1 
à THEM Bel 
из PLOT x, Ytl ME: x 
Y 


IF F=149 


GÛBE ERLLE 
гай TO 5 


REM obs TACLES 
ЕЕМ 
POP: GOTO дай 
REM 

ше): БЕТПЕН 


HE РАЗ 


7.6, "UNE AUTRE 


"О" THEN 1856 
I THEN HI=L 
ОТО Š 

:H=H+H: PING: Q 
SINTE RHE LIKE 


zg 
TURM 

Def: мет НТ RHDE 10423: IF Мей 

5 RETURN 

DATA й,й,.8,63,41,18,4,3 
DATA 8,0 3 

ей DATA 
& DATA 
й САТА 8,12,18,37,41,18,12,й 
DATA 3,4,8,12,11,8,8.8 

DATA 48,8,4,12,52,4,4,4 
DATA 4,2,1,1,1,1,1,7 

п DATA S, 16,32. 32, 22, 32, 32,56 
DATA ё ELB 47, 47 
ü САТА 363,63: 63.6 


8,36.8,16,26,8, 


a. E THEN 


ЕР 18:SOUMD 1,1,18:НЕКТ ЗОИНО 1,1,0 
Ү+1, 


мот, B$: GOTO 
EHLEVER LES REM VID 


Is A Se 4:PIMG:WRIT 48: НЕАТ: POF 


: Mesh: RETURH 


ме: РОТ G,H,E# 
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PARTIE сО НО 7':GETRS: IF R#="H" TH 


THEN ©=-1 
THEN М=-1 


COMMENTAIRES : 


Ligne 5 à 40 : initialisation et 
redéfinition des caractères 

Ligne 50 à 128 : décor 

Ligne 130 à 230 : saisie des touches et 
mouvement du panier 

Ligne 300 à 350 : mouvement de la balle 
Ligne 400 à 440 : le panier а attrapé Та 
balle 


Ligne 960 à 2555 : différents 
sous-programmes correspondant aux 
caractères que rencontre la balle 
ех: 

Ligne 970 à 980 : panier 

Ligne 1050 : verre 
Ligne 1050 à 1059 : 
partie 

Ligne 5000 à 5100 : DATA pour la 
redéfinition des caractères 


perte et fin de 
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ORIC 1/ATMOS 


GARE AUX BULLES 


Promenez-vous dans l'écran le plus longtemps possible 
sans jamais vous faire heurter par une bulle. 
Pour vous déplacer, sachez que 
A - haut, Z - bas, > - droite, < — gauche. 


РОКЕ 18R8,58: PLOT 12 "GARE AUX BULLES!" 
2 FÜRISETÜ?:RERDR.B.C:PDKERIGCEHI,R:POUKERIBBOI,B:POKERIGGE I, 


DATA BC, SFR. 2, SED, FS, d; #ВЕ, 31.1 

САТА #ВЕ, #46. 3, HBF #10., 4. #ВЕ,#23,2 

3 DATA SED, GF, 2, HBF. #30, 4 

IF РЕЕК( 46856 3212 THEN 194 

ЕСЕ 14468556 TO 46895:БЕНр D:POKE I, 0: НЕХТ 
Не#РВЙ 

REAC D: IF D-256 THEN 100 

58 POKE A:D:A=R+1:COTO 48 

100 REM DR 

118 $= : liz" d" Еве "Чеч" 

115 PLOT 1.5,.1:PLOT 1.25.1 

128 ЕПК То S4:PLOT I.S.DS:PLOT 1,25, 08: НЕХТ 
138 ЕПЕ То 24:FLOT 6.1, СФ: PLOT 34, 1. СФ: НЕКТ 
148 PLOT ?, 5, ЕФ PLOT 31,6,E#:PLOT 7, :PLOT 33 
158 PLOT 7,24,E#:PLOT 31 E DE: РОТ 
164 РПКЕЙВСЕН, #55  РОКЕЖЕОЕ S. # ОКЕ Ма ШКЕ: 
162 РОКЕ#БЕ4@, #65 JEESEF 10, #6: 
170 PING:PLOTIS, 26, CHRE 3 +" SCOR 
200 REM DEELIT 

285 H--1:B-H 

D CALL#F GG : PSeFEEKX RACE 

B IF Р-148 THEN 
230 IF Р=14@ THEN 
240 IF Pz1?4 THEN 
250 IF P=170 THEN B= 
260 PLOT х TM 


270 5-5 5, 2 THEN ж=х-Н:Ү=Ү-В:Н=-Н:ВБ=-В 
284 IF DI THEN 1808 

29ӣ Р! SOY B: IF PEEKCHLIBRHE? ТНЕН 1808 

зав SC-SC-1:PLÜT 22, 5 сотпгта 


450 DATA 12.12.: 
460 DATA 12,12,1,3й, 44, 12,19,17 

ага DATA 12,320.30. 62, 63, 20 ‚12 
388 DATA 12:36.30, 62, 
ГАТА а 28,58,62, 6228,0. 
8,189,176,16,141 


“МЕ 


56,189, 
ЕТІ? 176, 


Lee, Lë, 185, 41 
157,.1765,16,189,192,16 
аз aa Эв. 
24, 189, 176, 15, 109,3 
187,176, те, 
105,8, 15 
56,189,1 
157, Падова 


159, гара 
5,168, 1,148, 168,16 
A 211, 98, 208, 5,168 
148, 169, 16, 201, 9! 
7.201.108, 
196,19,96,1 
B, 16, 157. 8.16. 
2 5,15 ENGEN 
„г, 21, з, 240 
з, S7. 15, 168, 200 
152,157,0, 16,76, ЗА 
15, 168,136,152, 157.0 
16, 76, 20, 15, 189, 176 
16,141,211,15,189,192 
15,141,212,15,1623,181 
141.153,188.232.224,8 
DATA 248,3.76,2,19,.96 
DATA 234,185,241,15,141,236 
980 DATA 15,185,249,15,141,237 
вэй DATA 15.32, 90, 15, ce, 188 


56 


1808 REM PERTE 


1434 GET ЕФ 

1848 IF R&-"H" THEM END 
1050 IF ЕБ С»"О0" THEN 1850 
1860 КИН 


1816 SHOOT:FÜRIZITOUS:PRPER4:HRITIG:PRPERH:MHRITIB:HERT 
1020 PLOT 8,3. CHR 2)+"UHE AUTRE PARTIE 7" 


COMMENTAIRES : 


Ligne 54 18 : initialisation 

Ligne 20 à 30 : redéfinition des 
caractères 

Ligne 35 à 50 : implantation de la 
routine machine 

Ligne 100 à 170 : décor 

Ligne 210 : appel à la routine qui fait 
bouger les balles 

Ligne 210 à 290 : saisie des touches et 


e 


mouvements du personnage 

Ligne 280 : celui-ci rentre dans une 
balle 

Ligne 290 : une balle le heurte . (La 
routine met 1 en 1040 si une balle le 
heurte) 

Ligne 300 : incrémentation du score 
Ligne 450 à 490 : DATA pour Та 
redéfinition des caractères 

Ligne 500 à 910 : DATA pour Та routine 
de Та machine 

Ligne 1000 : perte et fin de partie > 
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ORIC 1/ATMOS 


TÉLÉPHONES FOLIES 


Décrochez le maximum de téléphones avant que le compteur 
n'arrive au chiffre fatidique de 
zéro! 
Utilisez les touches < pour aller à gauche et 
> pour aller à droite. 


55 А%="ар": 
50 FÜR 1-9 T0 21 STEPS 

ҮЙ PLOT 1,1,1:FLOT 1,.I-1,1:FLOT 1,1+2,4 

за PLOT 3.I,RS-CHRSCSO:PLOT 3, I+1, ES+CHRSC S) 
за PLOT 34,1, CHR$C 1 mg: PLOT 34,1+1, CHRGC 1 B5 
106 МЕХТ: АФ 
185 PLOT 1,.1.2:PLOT 2.1.18:PLOT 1:2:2:PLOT 2,2,18 

188 PLOT 15.1."TELEPHÜHE!":FLO 15,2, "TELEPHONE! " 

118 РОК 152 TÜ 35 STEP S:PLOT I.11.R$:PLOT I.17.R&:PLOT 1,23.Н%:МЕН 


128 pc 
125 C*ç 1 


2 ТЕ : 
33:PLOT 19, Co: SOUND 1,1#25, 12: WAIT га: ПОТ 19, 1, МЕ 


JEE: "PLOT 27,4, "ERREURS: " 
LOT 1,25,7 
КФ: PIMG 


т, A6 э: PLOT X, +1, ВС 17 
Bg DEBUT == 
195 PLOT 19, YA. МФ 
158 YA=YA+BA: ТЕ YRE 
165 IF М=1 THEN Y 
170 PLOT 19, УА, КФ: ТЕНЕ1ТНЕНРСОТ 12, УА-1, Ив PLOT 19, YR-2.G5:PLOT 13, 
Н-3,МФ 

188 FOR 151 TO 6:Т-Т(1):ТеТ-і 

185 IF T40 THEN 210 


2 ОК YR222 THEN БН--ЕН 
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198 PLOT СТО УСТА," "PLOT EIH ID STRETO 


йй РІ 
318 
аай 
418 
328 
438 
450 
den 
378 
чай 
432 
4эй 
425 
1888 
тата 
1928 
1925 
1838 
таа 
1056 
1868 
тата 
таза 
таза 
Saga 
5@1@ 
зага 
саза 
5040 
Suse 
сава 
5100 
5110 
S120 
5130 
5148 
5158 
5160 
5178 
51280 


IF T=18 THEN PING 
THEN GOSUE 1Й08:МС1248 
ТС : НЕКТ 
C+1:PLOT 8,4,5TR#C SC: 


К-РЕЕКе #206 2: ДЕ K=56 THEN 155 

IF Р=1 THEN Р=2 ELSE P=1 

PLOT wo M$: PLOT в. Y+1 ME 

IF Қ-14й THEN R=-1 :Q$=A$ P>): ИБФ Р 
IF к= 148 THEN Н=1:@Ф=СФСР >: МФ=рФР 2 
х= supay sss; Y+2> 

IF 2 THEN #=x-A: GOTO зай 


3 Май 


IF х»З2 THEM X=32:GOTO 488 
IF 18 AHD S-182 THEN х=19:№=1 
IF 56 Gr ОТО 450 
IF М=2Йй AND S-182 THEN #=13:H=1 
LOT от, 08 :PLOT Ko +1, не 
GOTO 155 
IF ү=09 THEM 
IF Үе15 THEN 
IF Y=21 THEN 
GOTO 458 

9 THEN 


ET 
H H N 
тыла» 


пи 
го + 


= 
л 
e 
= 
m 
= 


THEN I=3 
YQ D$: Рот Х,Ү+1,М#:1Е MG I>=0 THEM 155 
£Io-28:IF MéI)<28 THEN Mí I5-28 
FÜR Je1TO 3:80UND 1.133,12:MRIT 6@:SQUND 1.1.0:МН1Т 25:МЕХТ 
TÉL EME IO:'YR-YR-BR:GOTO 155 

REM == PERTE == 

SOUHD 1.1588,12:MRIT 6@:SOUND 1,1,0 
R=R+1:PLOT 35,4, STESCR 2 

IF R43 THEN RETURN 

EXPLODE 

PLOT ?,в, "ОН CHANGE DE ЗТАНОВКОТЗТЕ:" 

PLOT 5,25,"ETES-YOUS VOLONTAIRES “ОН 7" 
GET RË 

ТНЕН ЕНО 

THEN тава 


ГАТА &8,8,8,80,15,31,63,96 

DATA 6.0.0, й,50,62,63,7 

DATA 51,7,14,12,12,14,31,563 

DATA 51:56.28, 12,44,28, 62,63 

DATA 63: 63. 0. 63:63:63.539. 117 

DATA 63.32., 32, 32. 32.6300 

DATA 63,1,1,1.1,63,й,0 

DATA 1,1,1.1,й,й, 3.15 

DATA 56. 62,40. 60., 56,48,60. 62 

DATA 27.18.7.7,63,6B.32.H 

DATA 59.40.56, 60. 28,12,12. 14 

CATA 9287 15,7,3,15,31 

са 32. 32 B, 0. 48. 6A 
:15:14,12,12,28 

736 .56,63,15,1,0 


,1,8,8,3,15 


5188 DATA 56.62.4H8,68.56,49,62,68 
S200 DATA 27,14,3.7,,6,6,7 
S218 DATA 56:40, 56:60:14 6 7.8 


S228 DATA 7.31, 
зазй DATA 32, 
9240 ГАТА F,5 


COMMENTAIRES : Ligne 220 à 310 : saisie des touches, 
mouvement du personnage 

Ligne 20 à 30 : redéfiniton des Ligne 400 à 430 : оп а touché un tél. de 
caractères droite : test pour savoir lequel 
Ligne 40 à 48 : initialisation Ligne 450 à 470 : оп а touché un tél. de 
Ligne 50 à 148 : trace le décor gauche : test pour savoir lequel 
Ligne 155 à 170 : mouvement de Ligne 480 à 495 : affiche le bonhomme, 
l'ascenseur met à jour le compteur du tél. décroché 
Ligne 180 à 210 : décremente les Ligne 1000 à 1025 : perte 
compteurs de téléphone et teste si un Ligne 1030 à 1090 : fin de partie 
compteur a atteint O0 Ligne 5000 à 5020 : DATA pour Та 
Ligne 215 : affichage du score redéfiniton des caractéres 

ORIC 1/ATMOS 


CIDRE OU PINCE? 


Pour gagner, il vous faut remplir toutes les bouteilles de 
la chaine. 
Si vous en ratez une, il vous reste toujours 
la possibilité d'essayer de la récupérer avec la pince. 
Utilisez les touches : 
Z pour ouvrir le robinet et (SPC) pour lancer 
la pince. 


@ 46) (6 


D изби 


12 


15 mann. рени 
18 ТЕ E 45896 2=3 THEM Зӣ 
20 ЕПК : 10. 46967: READ О:РОКЕ 1,0: НЕХТ 


:28-2849 "MENT 
"ap" Denah" Egon dg 


Ее mnt : M=" Шери 


"PLOT 1.1, 8: РОТ 1,2,5 
218 РОТ Z,2,1B8:PLOT 13,1, А CIDRERIE":FLOT 13.2,"LH CI 
DRERTE" 
52 PLOT ФУ РОТ 2,4, "SCORE : " 
Өй м=24 4 
ҮЙ PLOT 1, в. 4: РОТ 2 
SB PLOT 24.4.СНЕС?: 
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1:РІПТ 3,17:4:PLOT 3, 13, 2: РСОТ 1717, 3 
S:PLOT зв,т. "1": РОТ 2,Т, "1": НЕХТ 


"он "да" GOTO гай 
GOTO ааа 


KE AC E H$426: T=T+1 
IF Тева THEM Hz-b-18:T-B:IF М51 THEN Nei 
PLOT 3.18. Ув: РОТ 3.19.25 

ITOH: NEST 


"2" THEN GOSUE S00 
" THEN GOSUE 66 
d (36,19):ІЕ S=33 THEM 264 

GOTA 158 

FING:MAIT 40:FING:HAITZØA:PING:WAIT 3B:PING:MHRIT4G:ZRF:HRIT 18:2 


WAIT за 

Мау%1:1Е Уза THEM 300 

сото 18 

PLOT 9,9, "VOUS ETES REHVOYESE)!" 
PLOT 34.4 


PLOT 9,11, "ЕНСОКЕ UN ESSAI СОН» 7" 
СЕТ ЕФ ТЕ Еве" Н" THEN ЕМІ 

ТЕ Е "Ü" THEN 328 

THEN R=SC 

B:GOTO 5 

SSAGE == 

4 15, 189 54797 THEM 550 
FOR 1410 ТО да: зоино 1.1,12:МЕХТ:500МНГ 1.1.0:50-50410 
ZëchlDëc Z$, 1,122409401р5С Z$, 15,28? 
БЕТТЕН: 

SOUHD 1,606, 12:WAIT ep: ЗОПНО 1,1,0 
й SC-SC- ы IF SC<0 THEN 5С=@ 

& КЕТПЕН 

REM === PINCE === 

5, 15, Не РОТ 35, 16, H$ 

То 16 

Y +: РСОТ WSYTI.ES:HHIT 28 


НЕХТ 
IF 5СЕНСМ,182-97 THEM 690 
SOUNE 1.1588,1 MATT 66:SOUND 1,1,0 
FOR Y=17 ТО 14 STEP-1 
PLOT м,Ү,ЕФ-МНЇТ 2G:PLOT К, 7, НЕ: НЕХТ: 7214 
& H=INTÉ ЕМСЕ 13 Ж 142 + 19 PLOT Х,Ү,Е 
БЕТПЕН 
IF ЗСЕМСХ.1924181 THEN 640 
а то за: зопно 1,1,12: НЕАТ 
я TO Єй ЗТЕР-1:З0ПНО 1,1,12:MEXT:SOUND 1.1.8 


T 12 +НЕ+МТОВ Z$, z-3. 2 
ig ID Yp 1, РОМЕН ве Y$, Z+3, Y 


т2ӣ FOR Үзі? TO 14 STEP-1 

Y38 РОТ N,Y.ES:PLOT K,Y*1.B$:PLOT X.'Y*2.B$:HRIT 28 
ТАЙ PLOT ж.т, НЕ: РОТ X. Y-1.MS:PLOT X,Y-2, Не: MEXT: Y-14 
тай БОБ [=й TO 3S:PLOT I,14,ES&:PLOT 1.15,НФ:РІПТ I.16.BS:MRIT 28 
760 FÜR 1514 TD 16:FLOT Т. 1. НЕ: МЕКТ 

Tø МЕЯТ I:PLOT 35, 15, А: РСОТ 35,16, ВФ:РГОТ Х.Ү.ЕЖ 
тва RETURN 

зайа DATA 3,3,2,2,2,2,4,8 

зата DATA 48,48,16,16,16,16,8,4 

S026 DATA 8,8,8,8,8,15,15,15 

5030 САТА 4:4: 4:4 4 E0, 56, 68 

5048 DATA 15,15,15,15,15,15,15,15 

5058 DATA ep, 60. ep, ep, ep, 60, 68, ep 

5868 DATA 8,62,8,63,63.1,3,й 

5070 DATA 0,60, 0, 32, 32, 48, й 

заза DATA 1,3,6,15,30,28,24,12 

заза САТА 32,48,24,6й0,38,14,6,12 

5188 DATA 63,53,3,20,34,1,63,53 

5118 DATA 54:54, й,0,54,54,й,й 

5128 DATA 1,2,4,2,1,2,4,2 

5138 DATA 32,16,8,16,32,.16,8,16 


COMMENTAIRES п. и 1 2 Ligne 499 à 530 : remplissage d'une 
Ligne 5 à 145 : initialisations diverses boute iiie 
et dessin du décor — Ligne 550 à 570 : une bouteille n'est 
Ligne 150 à 215 : affichage et mouvement pas remplie = 20 points en moins 
des bouteilles AR Ligne 599 à 620 : descend la pince 
Ligne 220 à 240 : saisie de la touche Ligne 640 à 680 : remonte la pince vide 
frappée ` ` Ligne 700 à 780 : remonte la pince avec 
Ligne 250 : teste si une bouteille se la bouteille vide 
casse Ligne 5000 à 5130 : DATA pour la 
Ligne 260 à 340 : perte redéfinition des caractères 

ORIC 1/ATMOS 


SPACE INVADERS 


Revoilà les fameux vaisseaux ennemis, toujours plus 
agressifs, toujours plus nombreux. 
Dirigez votre laser grâce aux touches Z (gauche) 
et X (droite) 
et faites feu en pressant la barre d'espace. 


Tes а” 2-5 | 


28.8,8,,34.54.42.62. 42, 28,8. 


„в, 28,62.28,8.28.42,42,,34, 94, 42, 62, g 20 24, ü 
0,46448, Вр, В, 46456, 8, 8, B. Et 
REDDE РОКЕВ, D : МЕХТВ. A: СОТОФАЙ 


:U+MID$CSTR$CHI 3, 2,62 
3z6:HEXTR: Rz. 817 ETPEELAPEB, 5+0, AG 
d SPACE IHVRDERS 
Рота: 5,4, "BOARDS Мір СТРЕС ТАЗ, 2, 32: PLDTT, 26. LEFTECER, FL 
РОТІ, 4, "и "+ STREE, MU, 2,4» 
РЕІМТ:РЕІНІ 
РЕТНТСНЕФ 
РЕТНТСНЕЖ: 
РЕІМТЕНЕФ 
РЕТНТСНЕ 
РЕТНТСНЕ( 27 "Р 
PRIHTCHRSC 27 "Р", SEENEN 

FüRKzETÜOS: FORLE1TOE 1 

РОТ? 18k, 142-K:MUSICI,K;INTÉL/20+1:15 
МЕТІ: HEXTK 


<>" "THEMES. Hs 
V-A*1:GOTO158 
THEHY=#-1 : 5070158 
THEH186 
24, ", Dr Gel X2 
1ЭТ055ТЕР- 1:PLOTH.B, ". ":PLOTA,E*1," ":MEXTE 


m — 0 PO PO Po PO D 
mmu imu 
m 


FCH LORMUEC 16- B):PLOTX: B," ":5=8-1:Н6Х›=НСХ2-1 
2 73: IFSC>HITHEHPLDT25, 32, "HI :"+A$ 


= 


А-1," "PLOTKA: "7" : NEXTR 

"" THENKE= JE 

"THENMUS LCA ; 3 4, B: PLAY ; B; 4, JABE 1 -R 3: GOTO LEE 
:EXPLODE : HAITS8: FU=FU-1 : PLOT 1, 26, LEFT E$, EU ni "ЭР 


193 МЕЦ РОТ d, DN "AMIDE, STRSE HU 3, 2,42 

194 IFFLSATHEMPLOT14, 13, "САМЕ OVER": MHRIT2S8:GOTL0 BE 
195 MUSICI: 3 4,6: PLAYL 8. 4,4886 1-R 2 

а 010160) 
КЕМ 
CLS: pl 2etTp- А=5ТЕФС А 

PLOTLZ, 1 COHGRATULATIONS !" 

Без 12," ОП” VE РЕЗТКОУЕО "+ +" FLYING SAUCERS" 

s "AND МАОЕ"+5ТЕФ 2%" POINTS" 

С:РГОТ1, 16, "ЯНО BERTEM THE HIGH SCORE" 
Ван A KEY" 


EEINTCHRSC A? ¿CHE 27 B"; CHARGE 27 y; "H SPACE INVADERS 


149 


BEZZE 
428 PRINT:PRIMT:PRIHT:PRIHT 
438 PRIMT"BBESIC VRLLES :" 


440 РЕТНТ: РЕТНТСНЕ ФК 27 2; "P"; "VRMPIRE БА" 

450 РЕТМТСНЕЖС272:"Р TOPUSE e .. 

368 PRIHTCHRES 27 ; "ТЕТОЕНТ а. 

470 РЕІМТЕНЕФ 27 à MASK ERT 

480 РЕТНТСНЕФ 27 31 "Р" "DELTA b 

498 PRIHT"DDUBLE HERD а ...... eo 1" 

9388 PRINTCHRSC2?2;"LYOUR SHIP — & ......... B" 

510 PRINT:PEIMT:PRIHT"COMTROL : KEYBOARD ONLY" 

S28 PRIHT:PRIHT"-KEY 2 FOB LEFT" 

538 РЕЇМТ"-КЕҮ X FOR RIGHT" 

525 PRINT" ° LEVEL 

S48 PRIHT"-SPRCE FOR SHOOTING" 

545 PLOTI,24, "LEVEL: B" 

528 РЕТНТ:РЕТНТ:РЕТНТСНЕФ 27 2; "P";CHRÉC2?2;"C PUSH SPACE ТО 
EEGIH" 

951 Zz-B:L 

522 Б-22:22ш202%1 

393 FüRR-4ZE321TD48S561STEP4G: B-E-*1: CO=B/6 : COS +ТНТСЙ. Luet CO-IMTCCO 2 
12: РОК D 


554 МЕМТН:НФ-КЕҮФ:ІЕНФе""ТНЕМ552 

525 IFR%<2>" "THEHLVeL'V1 : РОКЕВФОЕ, В LVs-CL Vv 18 XELV:PLOT?, 24; EL: 
5070552 

536 Lv=Lv+1: 

Deg GOTOS 

590 CLS 

бай ЕОЕКЕВТОЗ :FORL=1TO21 

610 FLOT3Ə8+L,18+K,182-K:MUSICI,K,INTCL225+1,15 

ваа HEXTL:MEXTK 


COMMENTAIRES : . variables du jeu 
Ligne 12 à 25 : tracé des dessins de 
l'écran 

Ligne Oà 1 : initialisation de l'écran Ligne 26 à 28 : musique d'accompagnement 

Ligne 2 t chargement des caractères Ligne 100 à 110 : test du clavier 

graphiques Ligne 125 à 194 : programme principal 

Ligne 3 à 7 : datas des graphiques Ligne 194 : fin de jeu 

Ligne 9 à 11 : initialisation des Ligne 300 à 550 : présentation du jeu 

ORIC 1/ATMOS 


PEINTURE PARTY 


Repeignez votre appartement sans vous faire attraper 
par de voraces petits fantómes. 
Et dés que votre pot de peinture s'épuise, 
courez en chercher un autre. 
Pour vos déplacements, К = gauche, A = haut, Z = bas et 
L = droite. 


3,1, пе?" РОТ 3,2, "ян": PLOT 28,2,"ef":PLOT 28,3, "зи" 
:PLOT 24,3,7 


PLOT 
35 PLOT 25,2," 
48 PLOT 2.1,5 2,2.5:Р10Т 13,2,2:PLOT 19,3,2 

42 PLOT 34,6,"a:":PLOT 33,6,5:PLOT 36,6.STR$CV» 

45 PLOT v,8."RTTEMTIOM...":PLOT 9,2."PEIMTURE":PLOT 11,4, "FRAICHE, " 
47 IF РЕЕКС46856 3-14 THEM 188 

58 FORI=46856 TO 46935:READ D:POKE Т.С: НЕХТ 

52 ЕСЕ 1-8 TO15:RERD A$:PLOT 38,I.RS:PLOT 37, 1, 6: НЕХТ 
ep DATA 14,14,36,31,15,14,1й,27 
52 DATA 28.28,9,62,60,28,20,54 

54 DATA 12, 3й,45,63,33,63,19,48 
ee DATA 12,18,33,33,33,33,18,12 
68 DATA 3,4:8,16,16,32,63,31 

та DATA 48,8,4,2,2, 1,563, 62 

P2 DATA за, 22, 20, 16,16,16,16,31 
74 DATA dë, 2, 2, 2, 2, 62 

те DATA 12, зй,45,63, 23, 63, 0.3 


F8 DATA 32,48,32,48,32,48,32,63 
за DATA Fo E, I.M. TU. R.E 
188 REM == DECOR == 6 


185 СФ=СНЕ 255 Dëss "OT 
108 PLOT 1,5,1:PLOT 1,2531 
110 FOR 152 TO 32:PLOT 1,5,D$:PLOTI, 29. Dë :MEXT 

тай FOR 156 ТО 24:PLOT 2,1,0%:PLOT 32,1, D$: NEXT 
130 PLOT 32,13," ":FORI=12T014:PLOTS3, 1, 08: МЕХТ 
132 PLOT 34,12,4:PLOT 34.13.4 

135 PLOT 35,12,"ef":PLOT 35,13, "ей" 

158 FOR Іс2й ТО 24: РОТ 35,1, "4": РГОТ 36, 1, СФ: МЕКТ 
164 PLOT ку, Pë 

200 FEM == DEBUT == 

210 КЕРЕЕКК #202) 

215 IF К=56 THEN 494 

216 МЕМ+1 


THEN Б--1 


21 
PLOT xY +R 
ий THEN хэм 
CRM, Y» 
5:99 DR S-185 THEN Эба 
THEM 2=2-5 
294 IF B$="a" THEN BS-"b" ELSE В%="а" 
295 IF Rep THEN ZAP 
200 IF К<1 THEN PS=CHRSCS 3: Tel 
210 IF RG AND S=#2 THEM РеР+ 1: 2521: РОТ 32.3, STR&CZO:IF Р>549 TH 
ЕМ 958 
250 Ней Бай  -Ё-1:РЇОТ х.т, ВЕ 
360 T-T-1:IF Тей THEM PLOT з6, НМ," ":Н=Н+1:Т=2@ 
37ü IF х=2 AND К<1 THEN GOSUE S58 
дай IF М<12й THEN 218 
418 PLOT GH, C$: Dep: Мей 
428 IF GN AND ЗСЕНСС+1, НОФ 232 THEM G-1:GÜTO S88 
438 IF GAN AND SCRH0G-1,H2<4>32 THEN Q=-1:GOTO 500 
дай IF Her BHD SCRHCG.H*124«732 THEM М-1:00Т70 S88 
458 IF НУ? AND ©СЕМСС,Н-12&>32 THEN 1 
Saba IF M$="c" THEN M$-"i" ELSE M$="c" 
S02 G-GkO:HzHeM:S-SCRHCG.IH2 
505 IF 2-9? ПЕ 2-998 THEN 369 
Әй IF 5-188 THEN G-G-O:H-H-M 
518 PLOT G.H.H$ 


GATO 218 


20: Ре; 

28 ТЕР -1:S0UHD 1, IX38,18:HRIT га 
PLOT 36,1,08:МЕХТ РЇМО 

RETURN 


THEN GzG-B:HzH-H:PLOT б.н, М: СОТО 218 
JRIT 188 
=i: IF Уз-1ТНЕН 915 


за: PLOT YT. ЕФ 


"PLOT 26.6 STRE GOTO 216 
F:PLOTZ,26, "UNE AUTRE PARTIE “ОНУ b 7" 
2 "Не THEM EHD 

THEN 334 


GATO 
3 RUH 
REM 
ZAP 


FIN DE TABLEAU == 

F: ZAP 

+тай: Рот 132,14, "BOHUS 188":MRIT 200 :P=6 
GOTO 5 


COMMENTAIRES : Ligne 280 : monstre =) perte 

Ligne 285 : peinture =) -5 points 
Ligne 2 à 7 : initialisation Ligne 290 à 350 : affichage du score et 
Ligne 30 à 45 : affichage du titre du peintre 
Ligne 47 à 50 : redéfiniton des Ligne 360 à 400 : gestion du stock de 
caractères peinture 
Ligne 60 à 78 : DATA pour les caractères Ligne 410 à 502 : mouvement du monstre 
Ligne 100 à 160 : trace le décor Ligne 505 : test de rencontre avec le 
Ligne 200 à 260 : saisie des touches et peintre. Si oui =) perte 
calcul des coord. du personnage Ligne 850 à 890 : remplissage du pot de 
Ligne 270 à 285 : on teste le caractère peinture 
que va rencontrer le peintre Ligne 900 à 930 : perte et fin de partie 
Ligne 270 : mur =) marche arrière Ligne 950 à 960 : fin du tableau 

ATARI 600/800 XL 


ALPHALUCK 


Recomposez le carré magique des lettres 
en remettant ces dernières dans l'ordre alphabétique. 
Pour jouer, pressez simplement 
la touche qui correspond à la lettre choisie. 


5 REM 

6 REM ----- 
7 REM 

10 DIM A$(14),B$(1),C$(1),D$(1),E$(1) 
15 OPEN #1,4,0,"К:" 


— ALPHALUCK--——---—— —— 


16 с-0 

20 A$-'"ABCDEFGHIJKLMN" 

30 PRINT " ALPHALUCK Ji 

40 PRINT "REMETTEZ TOUTES LES LETTRES DANS L'ORDRE ." 
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50 PRINT "POUR CHANGER UNE LETTRE DE PLACE 
OURENTAUSSI" 

65 REM 

66 REM = MELANGE - 
67 REM 

70 PRINT "COMBIEN DE FOIS DOIS JE MELANGER "; 
80 INPUT Y 

90 FOR I=1 TO Y 

100 X=INT(RND(O)*14+1) 

110 GOSUB 500 

120 NEXT I 

125 REM 

126 REM - AFFICHAGE 

127 REM 

130 GRAPHICS 18 

140 COLOR 1 

150 POSITION 3,3 

160 PRINT #6;" ABCDEFGHIJKLMN" 

170 COLOR 3 

180 POSITION 3,5 

190 PRINT #6;A$ 

195 POSITION 3,0:PRINT /6;"coup n ";C 
196 IF A$S"ABCDEFGHIJKLMN" THEN 300 
197 REM 

198 REM - INTERROGE 

199 REM 

200 GET #1,X 

210 X=X-64 

220 IF X<1 OR X>14 THEN 200 

230 GOSUB 500 


269 Goto 
180 
295 REM 
296 REM ^ 
297 REM 
300 FOR I=1 TO 14 
310 SOUND 0,200,1,I 
FOR J=0 TO 50:NEXT J 
NEXT I 
SOUND 0,0,0,0 
IF PEEK(753)-0 THEN 330 
RUN 
REM 
REM = ECHANGE LES LETTRES 
REM 
B$-A$(1,1) 
C$-A$(X,X) 
А8(1,1)-08 
A$(X,X)-B$ 
IF X>1 THEN B$-A$(X-1,X-1):G0TO 560 
В%-А%(14,14) 
IF Х<14 THEN C$=A$(X+1,X+1):GOTO 580 
C$=A$(1,1) 
ц ы a 114 )-0$:A$(2,2)-B$:GOTO 620 
= 13,13)=C$:A$(1,1)=B$: 
MOT ec ,13)-С%:А9(1,1)-В%:С0ТО 620 
A$(X+1,X+1 )=B$ 


RETURN 
COMMENTAIRES : Ligne 125 à 196 : affichage 
Ligne 197 à 250 : intérroge 
Ligne 5 à 50 : présentation du jeu Ligne 295 à 340 : gagné 
Ligne 65 à 120 : mélange des cartes Ligne 495 à 620 : échange les lettres» 
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‘ATARI 600/800 XL 


MAGI-CARRÉS 


Neuf cases à blanchir et un choix limité 
de déplacements. 
Un défi lancé à vos neurones. 
Relevez-le et essayez de battre votre ordinateur 
en pressant le chiffre Ë 
correspondant au dëplacement subi. 


4 REM 
5 REM — ———MAGICARRE— 


6 REM 
10 GRAPHICS 18 

15 POSITION 5,5 

20 ? #6;"MAGICARRE' 

30 FOR I-1 TO 2000:NEXT I 

35 GRAPHICS 3:POKE 752,1 

36 COLOR 2:FOR I=0 m 3:PLOT 1241*5,3:D 


RAWTO 12%1%5,1 МЕ 
40 POKE 709,2:POKE Зөв, 10 


44 ОРЕМ #1 ,4,0,"К:" 

45 DIM А(3,3),А$(6) 

46 ВЕМ 

47 КЕМ TIRAGE ALEATOIRE DES COULEURS 
48 REM 

50 FOR I=1 TO 3 

55 FOR J=1 TO 3 

60 A(I,J)-INT(RND(O)*4) 

65 NEXT J 

70 NEXT I 

72 C=0:PRINT " " 

73 PRINT "TYU":PRINT "GHJ":PRINT "BNM" 


AFFICHAGE DU CARRE = 
77 REM 
80 FOR I=1 TO 3 
85 FOR J=1 TO 3 
86 COLOR A(I,J) 
90 FOR K=0 TO 2 
95 PLOT J*548,I*44K: DRAWTO J*5+11,I*4+K 
96 NEXT K:NEXT J:NEXT I 
97 REM 
98 REM - 
99 REM 
100 FOR 1-1 TO 3 
105 FOR J=1 TO 3 


TEST DE CONTROLE = 


110 IF A(I,J)-2 THEN NEXT J:NEXT I:GOTO 
1000 
120: REM v са c e E 
121 REM = DEMANDE UN COUP - 
122 REM 
125 GET #1,X 
150 IF Х<>45С("Т") THEN 200 
160 FOR 1-1 TO 2:FOR 7-1 TO 2 
165 А(І,Ј)=А(І,Ј)+1 
170 IF A(1,J)=4 THEN A(I,J)-0 
175 NEXT J:NEXT I 
180 А$="Т" 
190 GOTO 800 
200 IF Х<>А5С("Ү") THEN 250 
210 FOR I=1 TO 3 
220 А(1,1)=А(1,1)+1 
235 IF А(1,1)-4 THEN A(1,1)-0 
240 NEXT I 
245 А$="Ү" 
246 GOTO 800 
250 IF Х<>А5С("")") THEN 300 
260 FOR I=1 TO 2:FOR J=2 TO 3 
265 А(І,Ј)=А(І,Ј)+1 
270 IF A(I,J)=4 THEN A(I,J)-0 
275 NEXT J:NEXT I 
280 A$-"U" 
290 GOTO 800 
300 IF X<>ASC("G") THEN 350 
310 FOR I=1 TO 3 
320 А(І,1)=А(І,1)+1 
325 IF A(I,1)-4 THEN A(I,1)-0 
330 NEXT I 
335 A$-"G" 
340 GOTO 800 
350 IF Х<>А5С("Н") THEN 400 
goa FOR 1-1 TO 3:FOR J=1 TO 3 
5 A(I,J)= 
3% қ Die Қ Zi, ACI,J)-0 


| 


; 550 IF X«»ASC("M") THEN 120 
560 FOR I=2 TO 3:FOR J=2 TO 3 
GOTO 800 565 А(І,Ј)=А(І,Ј)+1 


IF X«»ASC("J") THEN 450 570 IF A(I,J)=4 THEN А(І,7)-0 
FOR 1-1 TO 3 580 NEXT J:NEXT I 
A(I,3)=A(I,3)+1 590 А$="М" 
IF A(I,3)=4 THEN А(1,3)-0 ÜDGOREM а а ее пи ML S i A 
NEXT I 796 REM - AFFICHAGE SITUATION 
A$="J" 797 REM 
GOTO 800 800 C=C+1 
IF X<>ASC("B") THEN 500 810 PRINT " TYU":PRINT "GHJ":PRINT "BNM" 
топ I=2 то 3:FOR J=1 то 2 820 PRINT "COUP ";С 
A(I,J)=A(I,J)+1 830 PRINT A$ 
IF A(I,J)=4 THEN A(I,J)-0 840 GOTO 80 
NEXT J:NEXT I 995 REM 
А$="В" 996 REM - FIN DE PARTIE - 
GOTO 800 997 REM 
IF X«»ASC("N") THEN 550 1000 FOR 1-1 TO 5:РЕЇМТ " ";:NEXT I 
FOR I=1 TO 3 1005 FOR I-0 TO 300:NEXT I 
А(З,І)=А(3,1)+1 1010 PRINT " UNE AUTRE PARTIE (O/N) ?" 
IF А(3,1)-4 THEN A(3,1)-0 1020 GET #1,X 
NEXT I 1030 IF X=ASC("O") THEN 50 
A$="N" 1040 IF XC>ASC("N") THEN 1020 
GOTO 800 1050 GRAPHICS 0 
COMMENTAIRES : Ligne 75 à 96 : affichage du carré 
Ligne 97 à 110 : test de contrôle 
Ligne 4 à 45 : présentation et Ligne 120 à 590 : programme principal 
initialisation du jeu Ligne 795 à 840 : affichage de Та 
Ligne 46 à 73 : tirage aléatoire des situation 
couleurs Ligne 995 à 1050 : fin de la partie 
ATARI 600/800 XL 


THE WALL 


Retrouvez les joies du «casse-briques » 
dans une version particulièrement réussie. 
Jouez avec les touches 

droite et gauche du curseur. 5 


хү 
22 


40 РОКЕ 710,0 


50 РОКЕ 752,1 
95 КЕМ 


96 REM - DESSIN DU TABLEAU = 


100 
110 
120 
130 
140 
150 
160 
170 
180 


700 
710 
720 
730 


97 REM 


PRINT SCORE : ";SC 


FOR І-2 TO 36 

POKE 40080-1,128 

NEXT I 

FOR I=2 TO 23 

POKE 40002%1%40,128 

РОКЕ 40036%1%40,128 

NEXT I 

FOR І-6 TO 10 

POSITION 3,I:PRINT "" 

NEXT I 

X=18 : Y=22 : DY=-1 : DX-0: R=18 : DR-0: SC=0 
РОКЕ 40937,77:РОКЕ 40938,77:РОКЕ 40939,77 
КЕМ 

КЕМ - MVMENTS RAQUETTESBALLE - 


К-РЕЕК( 754 )*SGN(PEEK( 753) ) 

DR-O 

IF K=6 AND R>4 THEN DR--2 

IF K=7 AND R«34 THEN DR-2 

DD=PEEK(40000+(Y+DY)*40+X+DX) 

IF DD=0 THEN 300 , 
IF DD=205 THEN POKE 40000+(DY-+Y)*40+DX+X, 0: DY=-DY: Se :5< +10: 0506 500: Фото 260 7 


IF X=3 OR X=35 THEN DX--DX:GOSUB 500:GOTO 260 


КЕМ 

REM — AFFICHE RAQUETTESBALLE - 
REM 

IF Y=23 THEN 700 

POKE 40000+ү*40+Х,0 

X=X+DX: Y=Y+DY 

POKE 40000+Y*40+X, 84 
DD=R+DR+40920 

R=R+DR 


IF DR=-2 THEN POKE DD+2,0:POKE 00+3,0:РОКЕ DD,77:POTE DO- 4,77 
POSITION 21,0:PRINT SC 

GOTO 230 

REM 

REM - SON DE COLLISION = 

REM 

SOUND 0,200,10,10 

FOR I=0 TO 5 

NEXT I 

SOUND 0,0,0,0 

RETURN 

REM 

REM = PERDU 
REM 

FOR 1-255 ТО О STEP -1 
SOUND 0,1,10,15 

NEXT Т 

SOUND 0,0,0,0 


740 IF PEEK(753)-0 THEN 740 
750 RUN 
COMMENTAIRES : Ligne 300 à 390 : affichage de 1 
f 1 à 
Ligne 100 à 220 : dessin du tableau raquette et de la balle З 
Ligne 230 à 280 : mouvement de Та Ligne 500 à 540 : routine de son 
raquette ` Ligne 700 à 750 : fin de la partie 3 
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ATARI 600/800 XL 


SKI 


Vous dévalez des pentes enneigées 
en évitant tous les arbres. 
Classique ? Essayez les cinq niveaux de difficulté 
avant de juger... 
Utilisez les touches du curseur 
pour vous déplacer. 


5 REM 
6 REM —--————DESCENTE А 5КІ-------- 
7 REM 

10 POKE 741,0:POKE 742,150 

15 FOR 1-38400 TO 38431 

20 READ A:POKE I,A 

30 NEXT I 

35 DIM A$(3) 

40 DATA 24,36,60,24,25,38,68,136 

41 DATA 24,36,60,24,165,195,129,129 

42 DATA 24,36,60,24,152,100,34,17 

43 DATA 24,24,60,126,255,126,24,24 


45 REM 

46 REM Ü PRESENTATION - 

47 REM 

50 PRINT " DESCENTE A SKI " 


52 POKE 752,0 
54 POSITION 2,6:PRINT "EVITEZ LES ARBRES EN VOUS DIRISE!N 


, 
55 POSITION 15,10:PRINT "<- GAUCHE" 
56 POSITION 15,12:PRINT "-> DROITE" 
57 POSITION 12,20:PRINT "DIFFICULTE (0-5) ";:INPUT DF:I[ , + 


58 POKE 752,1 
59 POSITION 12,20:PRINT " BONNE CHANCE !!! 
60 FOR І-0 TO 1000:NEXT I 

65 PRINT " " 

70 SC-0:Y-15:D-0 

80 POKE 709,8:POKE 710,14:POKE 756,150 

94 REM 

95 REM = BOUCLE PRINCIPALE =- 


96 REM 
100 X-PEEK(754 )*SGN(PEEKC753)) : D-O 


105 IF X-6 AND Y>10 THEN 0--1 


110 IF X=7 AND Y<29 THEN D=+1 
115 Y=Y+D 
120 IF PEEK(40040+Y)=67 THEN 200 5 
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150 Y1=INT(RND(O)*10+10) 

160 Y2=INT(RND(O)*10+20) 

170 POSITION Y1,23:PRINT "";:POSITION Y2,23:PRINT "" 
180 POKE 40000+Y,D+65 

185 5С-50%1 

190 FOR I-50 TO DF*10 STEP -1 

195 NEXT I:GOTO 100 


196 REM 
197 REM - COLLISION = 
198 REM 


200 FOR I-15 TO О STEP -1 

210 SOUND 0,100,2,I 

220 POKE 710,I 

230 FOR J=0 TO 20 

240 NEXT J 

250 NEXT I 

255 PRINT " " 

260 POKE 756,224:POKE 710,4:POKE 709,10:POKE 752,0 
265 REM 

266 REM - FIN DE PARTIE - 

267 REM 

270 PRINT" ^ SCORE = ";5С*(рЕ+1) 

280 PRINT " UNE AUTRE PARTIE (O/N) "; 
290 INPUT A$ 

300 IF A$-"O" THEN 50 

310 IF A$«»"N" THEN 290 


programme PEL COMMENTAIRES : 

Ligne 94 à 195 : programme principal Ligne 5 à 43 : initialisation des 

Ligne 196 à 260 : test des collisions variables 

Ligne 265 à 370 : fin de partie Ligne 45 à 80 : présentation du 
ATARI 600/800 XL 


STAR DEFENCE 


Cinq niveaux de difficulté 
pour une féroce bataille contre de nouveaux envahisseurs 
i plus terrifiants que jamais... 
Les deux touches du curseur servent à vous déplacer, 
la barre d'espace à tirer. 


5 REM 
6 REM ------- — STAR DEFENCE——---—-— 
7 REM 

10 DIM X(5),Y(5) 

15 GRAPHICS 7 

20 PRINT " «- GAUCHE" 

30 PRINT " -> DROITE" 

40 PRINT " SPC TIR" 

100 REM 

101 REM - TIRAGE ALEATOIRE - 
102 REM 

110 COLOR 1 

120 FOR I=0 TO 2*3.14 STEP 3.14/8 

130 PLOT 80%С05(1)%5,40%5ІМ(1)%5 

140 NEXT I 

150 PLOT 80,40:DRAWTO 80,36 

170 FOR I-0 TO 5 

180 X(I)-INT(RND(0)*15443) 

190 Y(I)eINT(RND(OM7443) 
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IF (Х(1)-80)72+(ү(1)-40)72<625 THEN 180 
NEXT I 

COLOR 2 

FOR І-0 TO 5 

PLOT X(I)-3,Y(I)-3:DRAWTO X(I)43,Y(I)43 
PLOT X(I)-3,Y(I)+3:DRAWTO X(I)«3,Y(I)-3 
NEXT I 

A--3.14/2 

PRINT " DIFFICULTE (1-5) ":INPUT D 

IF Dei OR 025 THEN 255 

D-INT(D):SC-0 


REM - PROGRAMME PRINCIPAL | — 
K-PEEK(754)*SGN(PEEK(753)) — 
B=0 

IF K=7 THEN В-3.14/8 

IF K=6 THEN B=-3.14/8 

IF K=33 THEN GOSUB 500 
SOUND 0,0,0,0 

COLOR O:PLOT 80,40: DRAWTO 80+С05(А)*4,40+5ІМ(А)*4 
A=A+B 

COLOR 1:PLOT 80,40:DRAWTO 80*COS(A)*4,40*SIN(A)*4 
COLOR O 

FOR I-0 TO 5 

PLOT X(I)-3,Y(I)-3:DRAWTO X(I)+3,Y(I)+3 

PLOT X(I)-3,Y(I)*3:DRAWTO Х(І)+3,Ү(І)-3 

NEXT I 

FOR І-0 TO 5 

Z=INT(RND(O)*2) 

X(I)=X(I)+SGN(80-X(I))*Z*D 
Y(I)=Y(I)+S3N(40-Y(I))*(1-Z)*D 

NEXT I 

COLOR 2 

FOR I=0 TO 5 

PLOT X(I)-3,Y(I)-3:DRAWTO X(I)+3,Y(I)+3 

PLOT X(I)-3,Y(I)+3:DRAWTO X(I)+3,Y(I)-3 

NEXT I 

FOR I-0 TO 5:IF X(I)>77 AND X(1)«83 AND Y(I)>37 AN 


зото 300 
REM 

REM - PROGRAMME TIR = 

REM 

Х-80%005(4)%7 

Y=40+SIN(A )*7 

COLOR 0 

PLOT X,Y 

X-X«COS(A)*2 

Y=Y+SIN(A)*2 

IF Ү<0 OR Ү>79 OR Х<0 OR X>159 THEN RETURN 
LOCATE X,Y,Z 

IF Z<>0 THEN 600 

COLOR 3 

PLOT X,Y 

SOUND 0,Х%50,10,10 

GOTO 515 

REM 

REM - VAISSEAU TOUCHE = 


+50,4,10 


605 щ-100000 

610 FOR I=0 TO 5 

615 Z-(X(I)-X) 2«(Y(1)-Y) 2 

620 IF W»Z THEN W=Z:U=I 

630 NEXT I 

882 SC-SC*(200-10*INT(W))*D 

633 PRINT " SCORE : ";SC 

635 COLOR 0 

640 PLOT X(U)-3,Y(U)-3:DRAWTO X(U)+3,Y(U)+3 
650 PLOT X(U)-3,Y(U)*3:DRAWTO X(U)+3,Y(U)-3 
660 Y(U)-92:X(U)-INT(RND(0)*15443) 

670 RETURN 
695 REM 
596 REM = 
697 REM 
700 FOR I=15 ТО 0 STEP -0.1 
710 POKE 712,1 

720 SOUND 0,100,8,1 

730 NEXT I 

740 IF PEEK(753)=0 THEN 740 
750 RUN 


PERDU !! = 


COMMENTAIRES : 
Ligne 5 à 40 : initialisation des 
variables et présentation du programme 
Ligne 100 à 257 : positionnement 
aléatoire de la base et des envahisseurs 
o0 


ATARI 600/800 XL 


Ligne 295 à 490 : programme principal 
Ligne 495 à 590 : sous programme de tir 
(et son) 

Ligne 595 à 670 : sous programme de test 
des vaisseaux touchés 

Ligne 695 à 750 : partie rendue 


RALLYE 


Essayez de survivre le plus longtemps possible 


dans ce labyrinthe il 


Vous changez la direction de votre véhicule 
gráce aux touches E, S, D et X. 


5 REM 


6 REM ——-———— — RALLYE—————————— 
7 REM 
10 POKE 82,0:POKE 709,10:POKE 710,4 


15 POKE 752,1 
20 PRINT " 
30 PRINT " 
50 FOR I-1 TO 1000:NEXT I 
60 POKE 710,0:POKE 709,14 
65 REM 
66 REM = 
67 REM 


RALLYE 


DESSIN DU LABYRINTHE 


PARCOUREZ LE PLUS LONG TRAJET 


160 


70 PRINT "" 


80 PRINT ". ose 

82 PRINT ". ..10.%...... 
84 PRINT ". 26а 

86 PRINT v 

86 PRINT ". E « 22379371. Lv 65 
90 PRINT". . = dr de 2 
GE ретары E ОЙНУ. бы ne ын. 
94 PRINT". ... с E MER а ЕТИ 
96 PRINT". . . à 5 р 5 КОШ E 
GE И О See ESO E . 
100 PRINT ". . sos ice аж 
110 X-22:Y-21:DX-1:DY-0:DD-3 

115 REM 

116 REM - BOUCLE PRINCIPALE = 

117 REM 


120 К-РЕЕК(754 )*SGN(PEEK( 753 )) 
130 IF K=42 AND DY=0 THEN DX= 
140 IF K=22 AND DY=0 THEN DX= 
150 IF K=62 AND DX-0 THEN DY=0:DX=-1 : DD=2 
160 IF К-58 AND DX=0 THEN DY-0:DX-*1:DD-3 
170 POKE 40000+Y*40+X, O 
180 X=X+DX: Y=V+DY 
190 IF PEEK(40000+Y*40+X)=14 THEN 500 
200 POKE 40000+Y*40+X, 92+DD 
210 50=50+1 
220 POSITION 10,0:PRINT "SCORE = ";50 
230 GOTO 120 
495 REM 
496 REM — COLLISION - 
497 REM 
500 FOR І-15 TO 0 STEP -1 
510 FOR K-0 TO 3 
520 SOUND 0,100,4,I 
530 POKE 40000+Y*40+X, 924K 
540 FOR J=0 TO 5 
550 NEXT J 
560 NEXT K 
570 NEXT I 
595 REM 
596 REM = FIN DE PARTIE - 
597 REM 
600 PRINT " SCORE FINAL : ";S0;" " 
610 POKE 752,0 
620 PRINT " UNE AUTRE PARTIE (O/N) ? "; 
640 IF PEEK(754)=8 THEN RUN 
650 IF РЕЕК(754)<>35 THEN 640 
660 POKE 709,10:POKE 710,4:POKE 82,2 


COMMENTAIRES : Ligne 11 à 230 : boucle principale 

Ligne 5 à 60 : présentation du jeu Ligne 495 à 570 : cas d'une collision 

Ligne 65 à 110 : dessin du labyrinthe Ligne 595 à 660 : fin de partie » 
1 161 


EE oe... сн. Ба 0c е 


ATARI 600/800 XL 


RÊVE DE CHENILLE 


Mangez toutes les étoiles 
mais évitez les météorites si vous voulez devenir 
une super-chenille 
capable d'affronter solitudes glacées et 
immensités infinies... 
- haut, 5 = gauche, D = droite et X = bas. 


7 REM 


DIM A$(200) 

L=10 

A$2"1111111111" 

TX-20: TY=20 

QX-10:QY-20 

POKE 752,1 

GOSUB 700 

REM 

REM - AFFICHAGE - 

REM 

PRINT "! 

FOR 1-0 TO 60:POKE 40040*INT(RND(0)*960),10:NEXT I 
FOR 1-0 TO 10:POKE 40040+INT(RND(0)*960),84:NEXT I 
FOR I-11 TO 20 


110 POKE 40800+Т,84 
120 NEXT I 


IF PEEK(753)-0 THEN 130 

REM 

REM - MOUVEMENT ТЕТЕ 6 QUEUE - 
REM 

К-РЕЕК( 754) 


160 ТЕ K=62 THEN DD-0:TX-TX-1 


IF K=58 THEN DD=1:TX=TX+1 


170 IF K=42 THEN DD-2:TY-TY-1 

175 IF K=22 THEN DD=3:TY=TY+1 

180 IF TX«O OR TY<1 OR TX-40 OR TY=24 THEN 500 
190 CC-VAL(A$(1,1)) 

195 PP=PEEK(40000+TX+TY*40 ) 


IF PP=84 THEN 500 


200 IF PP-10 THEN С-С%3:5С-5С%10:0050В 400 


IF C<=0 THEN A$=A$(2,L):GOTO 209 


205 
206 1-1+1:С+С-1:СС<4 


209 A$(L,L)-STR$(DD) 500 0-10 
210 0Х-0Х-(00-1)-(00-0) 510 FOR 1-15 ТО O STEP -0.5 
220 QY=QY+(CC=3)-(CC=2) 520 SOUND 0,200,8,1 
225 REM 530 POKE 40000+TX+TY*40, C 
226 REM - AFFICHAGE ТЕТЕ 6 QUEUE - 540 C-94-C 
227 REM 550 NEXT I 
230 POKE A0000+TX+TY*40, 84 560 POSITION 10,12 
240 POKE 40000+QX+QY*40, 0 570 PRINT " UNE AUTRE PARTIE (0/М) ? " 
250 PRINT " SCORE : ";SC 580 IF PEEK(754)-8 THEN RUN 
260 GOTO 150 590 IF PEEK(754)«»35 THEN 580 
395 REM 600 GRAPHICS O 
396. REM - SON D AVALEMENT - 610 END 
397 REM 695 REM 
400 FOR І-15 TO 0 STEP -1.5 596 REM - PRESENTATION = 
410 SOUND 0,16%1,10,І 697 REN: cain L 
420 NEXT I 700 PRINT " CHENILLE 
430 SOUND 0,0,0,0 710 PRINT "DIRIGEZ VOTRE CHENILLE A L'AI 
440 RETURN DE DES TOUCHE! 
495 REM ООН 1ХЕлг AVe 
496 REM - FIN DE PARTIE - 730 FOR 1-0 ТО 1000: МЕХТ I 
497 REM 740 RETURN 
COMMENTAIRES : déplacements chenille 
р Ligne 225 à 260 : affichage des 
Ligne 5 à 70 г initialisation des différents déplacements 
variables Ligne 395 à 440 : sous programme sons 
Ligne 85 à 130 : affichage des Ligne 495 à 610 : fin de la partie 
différentes étoiles aléatoirement Ligne 695 à 740 : présentation du 
Ligne 145 à 225 : sous programme des programme 
ATARI 600/800 XL 


ALPHATACK 


Toutes les lettres de votre abécédaire 
ont été prises de folie. 
Remettez-les dans l'ordre pour gagner... 
le droit de recommencer! 


5 REM 
6 REM ------ ---АЪРНАТАСК-------------- 
7 REM 
10 DIM А(6,6) 
11 GOSUB 1000 


12 OP fep. 
15 xen E 
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230 
240 
250 
260 


PRINT " VEUILLEZ PATIENTEZ UNE MINUTE 


0-500 

REM 

REM - TIRAGE ALEATOIRE - 
REM 

FOR I=1 TO C 
D-SGN(INT(END(0)*2)-0.5) 
E-INT(RND(O)*2) 

X=X+D*(1-E) 

Ү=Ү+р*Е 

IF X>5 OR X«1 THEN X-X-D:GOTO 50 


IF Y»5 OR Ү<1 THEN Y-Y-D:GOTO 50 
AC(X-D*(1-E), Y-D*E)-A(X, Y) 
ACX,Y)=32 

NEXT I 

REM 
REM = AFFICHAGE = 
REM 

GRAPHICS 18 

0-0 

FOR 1-1 TO 5 

FOR 7-1 TO 5 

РОБТТТОМ 7,1 

PRINT #6;CHR$(A(I,J)) 

NEXT J 

NEXT I 

POSITION 7,5:PRINT #6;"COUP N ";C 
REM 

REM - 
REM 

GET #1,K 
IF K<65 OR K>88 THEN 210 
FOR I=1 TO 5 

FOR J=1 TO 5 

IF A(I,J)-K THEN 300 
NEXT J 


TEST DU COUP E 


270 NEXT I 551 


280 END 
290 REM 
295 REM 
296 REM _ 
297 КЕМ 


JOUE LE COUP А 


310 IF A(I+1.J)=32 THEN A(I+1,J)=A(I,J):A( 
I,J)=32 :GOTO 350 

330 IF A(I,J41)-32 THEN A(I,J+1)=A(I,J):A( 
I,J)-32:G0T0 350 

350 C=C+1 

360 FOR I=1 TO 5 

370 FOR J=1 TO 5 

380 IF A(I,J)-59*1*54J THEN NEXT Ј:МЕХТ I 
390 IF A(5,5)«»32 ОК I<>5 OR J«»5 THEN 150 
395 REM 

396 REM - 

397 REM 

400 GRAPHICS 18 
410 PRINT #6; "рарле еп" 
420 PRINT #6 

430 PRINT #6;"UNE AUTRE ?" 

440 IF PEEK(754)-8 THEN RUN ^‘ 
450 IF РЕЕК(754)<>35 THEN 440 
460 GRAPHICS O 

470 END 
995 REM 
996 REM = INITIALISATION TAB - 
997 REM 


1000 FOR 1-1 TO 5 
1010 FOR J=1 TO 5 
1020 A(I,J)-594I*54J 
1030 NEXT J 
1040 NEXT I 
1050 A(5,5)-32 
1060 RETURN 


FIN DE PARTIE cd 


COMMENTAIRES : 
Ligne 5 à 30 : initialisation du jeu 


Ligne 35 à 130 : tirage aléatoire des 


let 


Ligne 135 à 200 : affichage des lettres 
ATARI 600/800 XL 


БК 


7R 
10 
15 
16 


tres 


Ligne 205 à 280 
Ligne 295 à 390 le coup est joué 
Ligne 395 à 470 : fin de partie 
Ligne 995 à 1040 : initialisation du 
tableau 


test d'un coup 


JACK-POT PARTY 


On vous refuse systématiquement l'entrée des casinos ? 
Défoulez-vous à domicile 
Avec ce superbe Jack-pot. Utilisez les touches 1à4 
pour faire tourner les différentes roues 
de la machine ou 
la barre d'espacement pour lancer toutes les roues 
simultanément. 


EM 
6 REM ------------ЛАСК РОТ------------ 


EM 


OPEN #1,4,0,"K:" 
GOSUB 700 
POKE 710,0 
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20 FOR T=1 TO 8 

30 PRINT " А 
40 МЕХТ Т 

50 PRINT 

60 PRINT 

70 PRINT 

80 FOR T=1 TO 10 

90 PRINT " и: 
100 NEXT T 

105 REM 

106 REM = INITIALISATIONS - 
107 REM 

110 DIM A(7),L(7) 

120 5-0 

125 FOR I=0 TO 6:READ A:L(I)-A:NEXT I 
126 DATA 16,123,96,0,20,35,36 
130 REM 

131 REM - BOUCLE DE JEU 
132 REM 

140 FOR R-1 TO 4 

150 C=L(INT(RND(O)*7)) 

160 A(R)-C 

170 NEXT R 

180 W=0 

190 PRINT 

195 PRINT 

196 POSITION 5,6:PRINT " 1 
200 FOR R-1 TO 4 

210 POSITION 6*R,9:PRINT CHR$(A(R)) 


220 NEXT R 

225 REM 

226 REM - CALCUL DU GAIN -= 
227 REM 


230 T=INT(RND(0)*6) 

240 IF T=1 THEN 390 

250 IF A(1)=A(2) THEN W=20 

260 IF A(1)=A(2) AND A(2)=A(3) THEN W=100 
270 IF W=100 AND A(3)=A(4) THEN W=500 
280 5-5-10 

290 IF W»0 THEN 350 

300 POSITION 10,15:PRINT "CREDIT-";S;"FR" 
310 REM 

311 REM = NOUVEAU COUP - 
312 REM 

320 IF РЕЕК(753)-0 THEN 320 
330 POSITION 12,4:PRINT " 
340 GOTO 130 

350 POSITION 12,4:PRINT " GAIN:";W;"FR" 


360 S=S+W 

370 W=0 

380 GOTO 300 

390 REM 

391 REM = EFFECTUE TILT 
392 REM 

395 GET #1,G 

400 FOR H-1 TO 4 

410 POSITION 14,2:PRINT " g 
420 GOSUB 670 

430 POSITION 14,2:PRINT "TILT " 
440 GOSUB 670 


450 NEXT Н 

460 E-INT(RND(0)*5)42 

470 FOR R=1 TO E 

480. B=0 

490 POSITION 12,8:PRINT E-R*1;" ESSAIS" 
500 GET #1,G 

520 IF G-49 THEN B-1 

530 IF G-50 THEN B-2 

540 IF G-51 THEN B-3 

550 ТЕ 0-52 THEN 8-4 

560 ЇЕ В-0 ТНЕМ 620 

570 Z=A(B) 

580 Y-L(INT(RND(O)*7)) · 

590 IF Y=Z THEN 580 

600 А(В)-Ү 

610 POSITION 6*B,9:PRINT CHR$(A(B)) 
620 NEXT R 


660 
665 
666 
667 
670 
675 
680 
685 
690 
695 
696 
697 
700 
710 
IRE 
720 


2 3 4 SUIVANT" 


20Т0 250 

КЕМ 

REM - 

КЕМ 

FOR R=1 TO 10 

SOUND 0,200,10,10 

NEXT R 

SOUND 0,0,0,0 

RETURN 

REM 

REM - 

REM 

PRINT " JACKPOT 2 

PRINT "APPUYER SUR UNE TOUCHE POUR FA 
TOURNER" 

PRINT "QUAND TILT S'ALLUME APPUYEZ 1 


SON DU GAIN el 


PRESENTATION 2: 


640 POSITION 14,2:PRINT " " 730 PRINT " APPUYER UNE TOUCHE S,V,P" 
650 POSITION 12,3:PRINT " a 740 IF PEEK(753)=0 THEN 740 
750 RETURN 

COMMENTAIRES : gains 
Ligne 5 à 100 : initialisation des Ligne 310 à 380 : calcul d’un nouveau 
variables et dessin de l’écran coup 
Ligne 105 à 126 : création des tableaux Ligne 390 à 660 : sous programme de la 
de stockage des données nouvelle partie et des différents sons 
Ligne 130 à 220 : programme principal Ligne 645 à 690 : sous programme son 
Ligne 225 à 300 : calcul des différents Ligne 696 à 750 : présentation du jeu 

ATARI 600/800 XL 


INVADERS 


Ils tirent sans cesse sur vous, 
se rapprochent imperturbablement pour peu que 
vous les laissiez faire et 
.. пе souhaitent qu'une chose : votre mort. 
Utilisez les deux touches du curseur et la barre d'espace 
si vous tenez à votre peau... 


тэгээ... 
" 


40 POKE 752,1:POKE 82,0:W=19 
45 GOSUB 600 
46 REM 


47 REM – 


BOUCLE PRINCIPALE - 


48 REM 


(Го ron vci то 22 

60 FOR ХХ-5%7 TO 5*(2-Z) STEP (1-Z)/INT((29-Y)/6) 
65 X=INT(XX) 

70 GOSUB 200 

80 NEXT XX 


196 REM - TEST CLAVIER#MOUVEMENTS - 
197 REM 

200 К-РЕЕК(754 )*SGN(PEEK( 753 )) 

210 ТЕ K-33 AND Т-0 THEN T=1:U=W:V=23 
220 ТЕ K-6 AND W»0 THEN W=W-1 

230 IF K-7 AND W«39 THEN W=W+1 

235 5-541 

240 IF 5223 THEN S-Y:R-INT(RND(0)*15)*24X 
245 IF S-23 AND R-W THEN 450 

250 V-V-1 

260 IF V«1 THEN Т-0 


296 REM - AFFICHAGE - 


300 PRINT " SCORE : ";SC 

305 POKE 4092044,88 

306 POKE 40000+S*40+R,93 

307 IF T=1 THEN POKE 40000+V*404+U, 92 
310 POSITION X,Y:PRINT A$ 

320 IF Y+2>22 THEN 400 

325 POSITION X,Y+2:PRINT B$ 

330 IF Ү+4>22 THEN 410 

335 POSITION X,Y+4:PRINT C$ 

340 IF Y+6>22 THEN 420 

345 POSITION X,Y*6:PRINT D$ 

350 IF T=1 AND PEEK(39960+V*404U)<>0 THEN GOSUB 500 


360 RETURN 

395 REM 

396 КЕМ - TEST COLLISION - 
397 REM 


400 IF В$=Е$ THEN 330 
405 GOTO 450 

410 IF C$=E$ THEN 340 

415 GOTO 450 

420 IF D$-E$ THEN 350 

425 GOTO 450 

450 FOR І-15 TO 0 STEP -0.2 

460 SOUND 0,150,6,I 

470 NEXT I 

480 FOR I-0 TO 500:NEXT I 

485 REM 

486 REM - NOUVELLE PARTIE? - 
487 REM Sep, ie 
490 POSITION 10,10:PRINT "UNE AUTRE PARTIE ? 

492 IF PEEK(754)-8 THEN RUN 

493 IF PEEK(754)<>35 THEN 492 

494 POKE 82,2:GRAPHICS O:END 


496 REM = SUPRIME UN VAISSEAU = 
497 REM 

500 V=V-1 

510 IF Y=V THEN A$(U-X+1,U-X+1) 
520 IF Y+2=V THEN B$(U-X+1,U-X+1)=' 


SC=SC+100 
:SC=SC+50 
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"6068420 
:SC=SC+10 


IF Y+4=V THEN C$(U-X+1,U-X+1)=' 
IF Y+6=V THEN D$(U-X+1,U-X+1)=" 
T=0 

FOR І-15 ТО 0 STEP -1 

SOUND 0,100,8,1 

NEXT I 
RETURN 
REM 
REM = 
REM 
PRINT " INVADERS 
PRINT "DIRIGEZ VOTRE VAISSEAU 


540 
550 
560 
570 
580 
590 
595 
596 
597 
600 
. 610 


PRESENTATION = 


GRACE AUX 


PRINT " APPUYER SUR UNE TOUCHE S.V.P" 
IF PEEK(753)-0 THEN 640 
RETURN. 


630 


TOUCHE” !£* 


2-8 


COMMENTAIRES : 


Ligne 10 à 45: 
variables 
Ligne 50 à 110 : boucle principale 
Ligne 200 à 260 : teste clavier et 
mouvement 


initialisation des 


300 à 360 
400 à 480 
Ligne 490 à 494 
Ligne 496 à 590 
d’un vaisseau 
Ligne 595 à 650 : 
présentation 


affichage du décor 
teste de collision 
une autre partie 
teste et suppression 


Ligne 
Ligne 


sous programme 


APPLE П et Пе 


NUCLEAR 


Principe simple mais réalisation ardue, 
Nuclear exige une concentration parfaite : 
Vous devez en effet 
vous déplacer cinq cents fois 
sans jamais repasser au même endroit. 


S = gauche, D = droite, C 


10 REM EFFECTUE UN PASSAGE EN М 
ODE TEXTE SI L'ORDINATEUR М” 50 
Y ETAIT PAS 60 
TEXT 
REM  EFFACE L'ECRAN 70 


REM ЕТ RAMENE LE CURSEUR ЕМ 
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= bas, R = haut. 


a? 


HAUT ET A GAUCHE 
HOME 
REM L'ORDRE SPEED INDIQUE LA 
VITESSE D'AFFICHAGE 
REM  SPEED-O INDIQUE UN AFFIC 
HAGE TRES LENT 


Г зо 


REM PAR CONTRE SPEED-255 PRO 510 REM TESTE LA TOUCHE D 
VOBUE L'AFFICHAGE LE PLUS RA 520 IF A - 67 THEN 730 
PIDE POSSIBLE SUR APPLE II 530 REM TESTE LA TOUCHE C 
90 SPEED= 255 540 IF А = 82 THEN 800 
100 PRINT " NUCLEAR " 550 REM TESTE LA TOUCHE В 
110 УТАВ 15 560 GOTO 450 
120 PRINT "VOULEZ VOUS DES INSTR 570 IF Y = 1 THEN 420 
UCTIONS ?" 580 Е = Y - 2 
130 СЕТ АФ 590 Е = х - 1 
140 REM TEST CLAVIER 600 GOSUB 870 
150 ТЕ АФ = "N" THEN 280 610 IF б < > 32 THEN 900 
160 ТЕ АФ < > "0" THEN 130 620 Y = Y - 1 
170 REM ОМ N'ACCEPTE QUE O OU N 630 тт + 1 
put 640 IF T = 500 THEN 1000 
180 HOME 650 GOTO 420 
190 REM ЕҒҒАСЕ L'ECRAN 660 IF Y = 39 THEN 420 
(200 PRINT "VOUS DEVEZ VOUS БЕРГА 670E = Y 
CER 500 FOIS SANS": PRINT : 680 F = X - 1 
PRINT 690 GOSUB 870 
: PRINT "JAMAIS REPASSER AU 700 IF G < > 32 THEN 900 
MEME ENDROIT !!!" 710 Y = Y + 1 
210 УТАВ 15 720 GOTO 630 
220 РЕМ POSITIONNE LE CURSEUR 5 730 IF X = 24 THEN 420 
UR LA 15EME COLONNE 740 Е = Y - 1 
230 PRINT "EVITER AUSSI LES X !! 250 F = x 
ít 760 GOSUB 870 
240 УТАВ 20 770 IF G < > 32 THEN 900 
250 PRINT "APPUYEZ SUR 'D' POUR 780 X = X + 1 
COMMENCER ." 790 GOTO 630 
260 GET АФ 800 ТЕ X = 1 THEN 420 
270 IF АВ < > "D" THEN 260 Во Еос Zt 
280 HOME 820F = x - 2 
290 REM CHOIX ALEATOIRE DE LA L 830 GOSUB 870 
IGNE ENTRE 1 ET 23 840 IF б < > 32 THEN 900 
300 X = INT ( RND (1) * 24) 850 X = X - 1 
310 IF X = O THEN 300 860 GOTO 630 
320 FOR R = 1 TO SO 870 G = PEEK (1024 + Е + 128 x F 
330 Y = INT ( RND (1) X 39) + 1 - 984 x INT (F / 8)) 
340 X = ( INT ( RND (1) ж 24) + 1 880 IF G > 128 THEN G = G - 128 
) 890 RETURN 
350 НТАВ Y: VTAB X 900 HOME 
360 PRINT "X"; 910 NORMAL 
570 NEXT 920 PRINT "VOUS AVEZ PERDU ! 
380 REM CHOIX ALEATOIRE DE LA C 
OLONNE ENTRE 1 ET 38 930 PRINT "VOUS N'AVEZ FAIT QUE 
390 Y = INT ( RND (1) ж 39) "три DEPLACEMENTS ... 
400 IF Y = О THEN 390 940 PRINT : PRINT : PRINT : PRINT 
410 INVERSE : PRINT 
420 НТАВ Y 950 PRINT "VOULEZ VOUS REJOUER ? 
430 VTAB X . 
440 PRINT "+"j 960 GET АФ 
450 А = PEEK ( - 16384) 970 ТЕ АФ = "O" THEN RUN 
460 IF А < 128 THEN 450 980 IF A$ = "N" THEN END 
470 Ата - 128 990 GOTO 940 
480 IF A = 83 THEN 570 1000 HOME 
490 REM TESTE LA TOUCHE S 1010 PRINT "BRAVO !!!!" 
| 500 ТЕ А = 68 THEN 660 1020 вото 940 A] 
COMMENTAIRES : Ligne 300 à 440 : routine principale 1 
Ligne 450 à 550 : test du clavier 
Ligne 10 à 80 : explication du jeu Ligne 560 à 860 : test de collision 


Ligne 100 à 280 : 


présentation du jeu 


Ligne 870 à 1020 : fin de la partie 


> 
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APPLE II et ПЕ 


TOP REFLEXES 


Une lettre apparaît sur votre écran, pressez la touche 
correspondante sur votre clavier. 
Pour lancer le jeu, 


pressez la touche D е: 3 


l'ordinateur. 


ez les directives données par 


506 8-8941 


13 TEXT 

30 HOME 

47 SPEED= 255 

64 PRINT " REFLEXES ! 

` f. 

81 МТАВ 15 

98 PRINT "VOULEZ VOUS DES INSTRU 
CTIONS ???" 

115 GET A$ 

132 REM TEST CLAVIER 

149 IF А% = "О" THEN 185 

166 GOTO 355 

183 HOME 

200 PRINT "UNE LETTRE VA APPARAI 
TRE QUELQUE PART !!" 

217 утав 5 

234 PRINT "APPUYEZ LE PLUS RAPID 
EMENT POSSIBLE SUR" 

251 утав 10 

268 PRINT "LA TOUCHE CORRESPONDA 
NTE Е 

285 ЧТАВ 15 

302 PRINT "APPUYEZ SUR "0" POUR 
COMMENCER" 

319 СЕТ АФ 

556 IF АФ< > "D" THEN 319 

555 НОМЕ 

370 V = INT ( RND (1) X* 23) + 1 

387 H = INT ( RND (1) % 38) + 1 

404 А = INT ( RND (1) E 26) + 65 

421 КЕМ CHOIX DE L'EMPLACEMENT 
ET DU CARACTERE А AFFICHER 

438 ЧТАВ V 

455 НТАВН 

472 FLASH 

489 PRINT CHR$ (А); 


170 


523 REM LA VARIABLE R COMPTE LE 


540 


557 
574 
591 
608 


625 


642 


659 


676 


693 


710 


727 


744 
261 
778 


795 
812 
829 
846 
863 


S UNITES DE TEMPS 
IF A< > PEEK ( - 
128 THEN 506 

REM TEST CLAVIER 
NORMAL 

HOME 

PRINT "VOTRE TEMPS EST DE "j 
Riu 

VTAB 10 

IF R < 10 THEN PRINT 
ETES TRES RAPIDE ! 
761 

REM VOUS 
FORT 

IF Е < 25 THEN PRINT 
PAS MAL DU TOUT !!!": 

761 

IF R < 50 THEN PRINT "VOUS 
ETES UN HABITUE DU CLAVIER ! 

GOTO 761 

IF R < 75 THEN PRINT "UN VE 

RRE,CA VA, TROIS VERRE ...": 

GOTO 761 


16384) - 


"VOUS 
": GOTO 


ETES VRAIMENT TRES 


"C'EST 
coro 


IF R < 150 THEN PRINT "VOUS 
DORMEZ OU QUOI ???": GOTO 7 
61 

PRINT “C'EST FOUTU Pı” 

VTAB 20 

PRINT "VOULEZ VOUS REJOUER ? 
??" 

GET A$ 

REM TEST CLAVIER 

IF A$ = "O" THEN RUN 

IF А% = "М" THEN END 

GOTO 795 


COMMENTAIRES : 


Ligne 13 à 335 : présentation du jeu 


Ligne 370 à 404 : 


10 REM 220 IF A$ < SCH THEN 210 
20 REM 230 REM СЕТАФ : ATTEND UN CARAC 
ЗО REM XXXXXXXXXXXXXXXXXXXXXXXX ТЕРЕ ET LE MET DANS АФ 
жж 
40 REM Ж LE MARATHON INFERNAL ! 240 REM 
[Ems 250 REM 
50 REM ж MICRO-JEUX 1985 260 REM 
* 270 REM 
60 REM % RESTEZ LE PLUS LONGTEM 280 HOME 
PS 290 REM ЕҒҒАСЕМЕМТ 
70 REM % POSSIBLE А L'INTERIEUR ЗОО FOR I = 1 TO 25 
ж 310 PRINT ТАВ( 15); "% wA 
80 REM Ж DU COULOIR DE LA MORT 
* 320 NEXT I 
90 РЕМ XXXXXXXXXXXXXXXXXXXXXXXX 330 X = 20 
хээ 340 Y = 15 
100 REM 550 НТАВ X: VTAB 1 
110 REM 360 PRINT "+" 
120 HOME 570 T = T + í 
130 ТЕХТ 380 REM COMPTE LES KILOMETRES 
140 SPEED= 255 590 НТАВ Y: УТАВ 24 
150 CLEAR 400 À = INT с RND (1) % 3) - 1 
160 FOR I = O TO? 410 УЕУ + А 
170 READ АФ(Т) 420 IP Y CS ТНЕМ Y = 1 
180 NEXT 430 IF Y > 30 THEN Y = 30 
190 REM LES DIFFERENTS ASPECTS 440 В = INT ( RND (1) ж 10): PRINT 
DE LA ROUTE SONT EN DATA ... АФ (В) 
450 Е = X - 1:F = O: GOSUB 800: ТЕ 
200 PRINT "APPUYER SUR "с" POUR с < > 32 THEN 690 
PARTIR" 460 À = PEEK ( - 16384) 
210 СЕТ A$ 470 IF А < 128 THEN 350 


tirage aléatoire 


Ligne 438 à 523 : compteur du temps 
Ligne 540 : test du clavier 

Ligne 608 à 659 : affichage du temps de 
réponse 


Ligne 659 à 863 : fin de partie 


APPLE Il et ПЕ 


FORMULE | 


Visi 


tée, virages brusques, 


l'étape de пий est souvent la plus sélective. 
Foncez quand même! 
Seul le plus audacieux triomphera... 
D vous permet d'aller à droite, С à gauche. 
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660 DATA Ж ж RTS] 

670 ТАТАЖ "x 

680 DATA X * 

690 HOME 

700 PRINT CHR$ (2) 

710 PRINT "PERDU" 

720 НТАВ 1: VTAB 10 

730 PRINT "VOUS AVEZ PARCOURU "; 
T / 100%" KILOMETRES !!" 

740 НТАВ 1: VTAB 20 

750 PRINT "VOULEZ VOUS REJOUER ? 
D 

760 GET АФ 

770 IF АФ = "O" THEN RUN 

780 IF A$ = "М" THEN END 

790 сото 760 

800 6 = РЕЕК (1024 + Е + 128 ЖЕ 
- 994 х -INT (лет) 

810 IF Ө > 128 THEN С = с - 128 

820 RETURN 


480 В = А - 128 
490 IF B = ASC ("D") THEN 530 
500 IF B = ASC ("6") THEN 560 
510 B = 0 
520 GOTO 350 
530 Е = X - 2:F = O: GOSUB 800: ЇЕ 
с < > 32 THEN 690 
540 X = X - 1 
550 GOTO 350 
560 Е = X:F = O: GOSUB 800: IF G < 
> 32 THEN 690 
кто X m. X + `í 
580 GOTO 350 
590 DATA Ж в Ж 
600 DATA * Ч ж 
610 DATA * “ж 
620 DATA ХН х 
630 DATA Ж х 
640 DATA Xx # ж 
650 DATA Ж * 
COMMENTAIRES : 
Ligne 10 à 110 : présentation du jeu 
Ligne 120 à 270 : début du jeu 
Ligne 300 à 370 : affichage de la route 


tn p a Н КЫ 
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APPLE Il et ПЕ 


et compteur Kilométrique 


Ligne 390 à 520 
jeu 

Ligne 590 à 680 
Ligne 700 à 820 
partie 


ORGUE MAGIQUE 


Composez, enregistrez et jouez de l'orgue: 
grâce à ce programme 

conçu par un spécialiste des effets sonores en 
micro-informatique. 


routine principale du. 


datas de la route 
affichage de fin de la 


5-22 12224222222 22222 
REM жж ORGUE MAGIQUE жж 
REM xx жж xx xx ** 
КЕМ жж NICOLAS BARCET жж 


ж ® э ж ж э © э © 212422225222 


é DIM ӨВС500) 


7 D$ = CHRE (4) 
10 GOSUB 200 

Ци: "КЕМ 

18 БЕМ MENU 


220 


221 
227 
228 
229 
230 
231 
232 
233 
235 
236 
237 
238 
477 
500 
501 
510 
520 
525 
526 
530 
540 
545 
546 
550 
555 
570 
580 
585 
590 
595 
500 
505 
610 
205 
710 
800 
810 
820 
830 
835 
840 
850 
860 
200 
510 
715 
917 


REM 


HOME : INVERSE : PRINT " MENU * 
NORMAL : PRINT : PRINT : PRINT : PRINT : PRINT "--> Uoulez vous :" 
PRINT : PRINT "<A> ECRIRE UN MORCEAU": PRINT 

PRINT "<B> ECOUTER UN MORCEAU": PRINT 

PRINT "<C> VOIR LE CATALOG": PRINT 

VTAB 23: PRINT "VOTRE CHOIX : ": GET СФ 


IF C$ = "A" THEN GOTO 500 

IF СЪ " THEN GOTO 1000 

IF C$ = "C" THEN GOTO 1500 

REM 

REM  INITIALISATION 

REM 

РОКЕ 770,173: РОКЕ 771,48: POKE 772,192: РОКЕ 773,134: POKE 774,208: 

POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 
280,9: POKE 781,202 

РОКЕ 782,208: РОКЕ 783,245: РОКЕ 784,174: РОКЕ 785,0: РОКЕ 786,3: РОКЕ 
787,76: РОКЕ 788,2: РОКЕ 789,3: РОКЕ 790,94: РОКЕ 791,0: РОКЕ 792,0 
RETURN 

REM 

REM NOTES 

REM 

POKE 768,240: POKE 769,255: CALL 770: RETURN 

POKE 768,220: POKE 769,255: CALL 770: RETURN 

POKE 768,197: POKE 769,255: CALL 770: RETURN 

POKE 768,190: POKE 769,255: CALL 770: RETURN 

POKE 768,170: POKE 769,255: CALL 770: RETURN 

POKE 768,150: POKE 769,255: CALL 770: RETURN 

POKE 768,133: POKE 769,255: CALL 770: RETURN 

POKE 768,125: POKE 769,255: CALL 770: RETURN 

REM 

REM JOUER 

REM JOUER 

FOR 1 = 1 TO 500 

INVERSE : HOME : PRINT " JOUER UN MORCEAU 5 
NORMAL 

PRINT "NOTE N*";I 

PRINT : PRINT : PRINT : PRINT " DO RE MI Ға SOL LA SI Do" 
PRINT : PRINT " S D ІЗ в H J к L 

PRINT : PRINT : PRINT " SILENCE = AUTRES" 

VTAB 20: PRINT "Tapez * pour finir." 

УТАВ 23: PRINT "VOTRE NOTE : ": GET A$ 

IF A$ = "S" THEN GOSUB 230 

IF A$ = "D" THEN GOSUB 231 

IF А% "Е" THEN GOSUB 232 

IF A$ = "G" THEN GOSUB 233 

IF АФ = "Н" THEN GOSUB 235 

IF A$ = "J" THEN GOSUB 236 

IF A$ = "К" THEN GOSUB 237 

IF A$ = "L" THEN GOSUB 238 

IF A$ = "ж" THEN 800 
ASCII) = АФ 

NEXT 1 

REM 

REM ECRITURE 

REM 

HOME : INVERSE : PRINT " SAUVEGARDE 8 
NORMAL 

VTAB 07: PRINT "Voulez vous suvegarder ce morceau (O/ND";: GET СФ 
IF C$ = "O" THEN 900 

вото 20 

PRINT : PRINT "Quel nom voulez vous lui donner";: INPUT ММФ 
PRINT D$"OPEN MUS.";NM$ 

PRINT D$"UWRITE MUS."; 

PRINT I 
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920 Тя Г: FOR I = 1 TO T 

930 PRINT А%<1) 

940 NEXT I 

950 PRINT D$"CLOSE MUS.";NM$ 
960 GOTO 20 


1000 REM 

1001 REM ECOUTE 

1002 КЕМ 

1010 HOME : INVERSE : PRINT " ECOUTE s 

1020 NORMAL : VTAB 10: PRINT "Quel morceau voulez vous ecouter :": INPUT 
ММФ 


1030 PRINT D$"OPEN MUS." ; ММФ 

1035 PRINT D$"READ MUS." ;NM$ 

1040 INPUT T: FOR I = 1 TO T 

1050 INPUT А%‹1› 

1055 NEXT I: PRINT D$"CLOSE MUS." ;ММФ 
1060 FOR I = 1 TO T 

1070 A$ = ASCII) 


1100 ТЕ A$ = "S" THEN GOSUR 230 
1110 IF A$ = "D" THEN GOSUB 231 
1120 IF A$ = "Е" THEN GOSUB 232 
1130 IF A$ = "G" THEN GOSUB 233 
1140 IF A$ = "H" THEN GOSUB 235 
1150 IF A$ = "J" THEN GOSUB 236 
1160 IF A$ = "К" THEN GOSUB 237 
1170 IF АФ = "L" THEN GOSUB 238 


1180 NEXT I 
1190 PRINT : PRINT : PRINT "Voulez vous réecouter ce morceau (0/М)?";: GET 


1200 IF C$ = "O" THEN 1060 


CATALOGUE 
HOME : INVERSE : PRINT " CATALOGUE 
NORMAL 
PRINT D$"CATALOG" 
утав 23: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER";: GET C$ 
GOTO 20 
COMMENTAIRES : des notes 
Ligne 500 à 710 : jouer un morceau 
Ligne 1 à 5 : titre du programme Ligne 800 à 960 : sauvegarde, écriture 
Ligne 17 à 28 : menu des fonctions sur la disquette 
Ligne 200 à 221 : initialisation et Ligne 1000 à 1180 : écouter un morceau 
langage machine produisant des notes Ligne 1200 à 1560 : catalogue d'une 
Ligne 227 à 238 : routine de changement disquette 
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"APPLE Il е? ПЕ 


QUID? 


Concevez votre propre questionnaire 
et soumettez 
vos amis à un test impitoyable. 
L'ordinateur préfére les réponses courtes («oui» ou «non») 
Tapez 999 quand vous avez terminé 
la liste de vos questions et suivez alors les directives 
de l'ordinateur. 


REM ж 
КЕМ жжжж INTERROGATION хэхэх 


КЕМ хээ Xxx% 
REM хээв NICOLAS хээв 
REM xxxx BARCET жұқ 
REM жж DE DE эе е эе э е е е EEE 
REM 
КЕМ --> INITIALISATIONS <-- 
REM 


D$ = CHR$ (4): DIM АФС100) 
DIM В%(100): DIM F#(100) 
POKE 214,200 


REMS ә. MENUS = 


INVERSE : PRINT " MENU 
NORMAL 
: PRINT : PRINT : PRINT : PRINT "Voulez vous :" 
PRINT : PRINT : PRINT "<i> COMPOSER UNE INTERROGATION " 
: PRINT "<2> ETRE INTERROGER" 

: PRINT "532 VOIR LE CATALOGUE DE LA DISQUETTE" 
PRINT "Entrer votre choix :";: GET СФ 
1" THEN GOSUB 1000 
IF C$ "2" THEN GOSUB 2000 
IF C$ = "3" THEN GOSUB 3000 


GOTO 200 
REM 

REM --> CREATION INTERRO <-- 

REM 

HOME 

INVERSE : PRINT " INSTRUCTION k 

NORMAL :: PRINT : PRINT " Vous devez ecrire votre question qu 
and cela vous est demandé, puis taper retour quand elle est finie. v 
ous пе pouvez plus alors la modifier, ou alors il faut recommence 
г dës 1 : 


175 


176 


1030 


1040 
1050 


1060 
1100 
1110 
1115 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1400 


1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
2000 
2001 
2010 
2020 
2025 
2030 


2035 


2040 


Z050 
2060 
2100 
2105 
2110 


2120 
2130 
2140 
2150 
2160 
2170 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 


PRINT : PRINT " Vous devrez ensuite ecrire la réponse ди” | 
1 faut à la question. N.B. : 11 est fortement conseillé de 
demander une réponse simple (oui ou non par exemple) car le programm 
е пе" 

PRINT "considèrera comme exacte que les réponses ayant une syntaxe 
identique a celle que vous ecrirez." 

PRINT : PRINT " Tapez 477977 quand votre interro sera complèt 
е. (аш moment ou l’on vous demandera la question suivante." 
утав 24: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER" ;: GET C$ 

FOR I = 1 TO 100 

HOME : INVERSE : PRINT " CREATION * 
NORMAL 

PRINT "QUESTION N*";I 

PRINT : PRINT : PRINT : PRINT "--> Texte de la question : " 

INPUT A$CI) 

IF A$CI) = "999" THEN GOTO 1400 

PRINT : PRINT "--} Réponse demandé : " 

INPUT В%‹1› 

NEXT 1 

PRINT : PRINT "xx? QUEL NOM VOULEZ VOUS DONNER À CETTE INTERROGATIO 
N : "уг INPUT ЕФ 
І= 1-1156= 1 + 

PRINT D$"OPEN INTERRO.";E$ 

PRINT D$"WRITE INTERRO.";E$ 

PRINT 8 

FOR I = 1 TO S: PRINT A$CID: PRINT B$(I) 

NEXT I 

PRINT D$"CLOSE ІМТЕККО." ; ЕФ 

НОМЕ : INVERSE : PRINT "ОК...": FOR 6 = 1 TO 1000: МЕХТ G 

NORMAL : RETURN 

КЕМ --> INTERROGATION <-- 


V=0 

INVERSE : HOME >: 

PRINT " INSTRUCTIONS Ы 

мокмас 

PRINT : PRINT : PRINT : PRINT " Vous devez repondre aux quest 
ionsposées. Pour cela il faut que vous chargiez un fichier d'in 


terrogation que vous pourrez reconnaitre dans le" 
PRINT "catalogue par Та mention INTERRO. suiviedu nom de celle-ci." 


PRINT : PRINT " Si vous ne connaissez pas le nom de votre int 
errogation tapez <$). Quand celui-ci vous sera demandé, 
ne donner que son nom, sans INTERRO." 

УТАВ 24: PRINT "TAPEZ SPACE POUR CONTINUER OÙ 4$5";: GET СФ 

IF C$ = "$" THEN RETURN 

HOME : INVERSE : PRINT " INTERROGAT I ON Ч, 
мовмас 

PRINT : PRINT : PRINT : PRINT "xx? Quel est le пот de votre interro 

"3: INPUT ЕФ 

PRINT D$"OPEN INTERRO.";E$ 

PRINT D$"READ INTERRO.";E$ 

INPUT 8 

FOR І = 1 TO S: INPUT A$CI): INPUT B#(1) 

NEXT т 

PRINT D$"CLOSE INTERRO.";E$ 

FOR I = 1 TOS 

HOME : INVERSE : PRINT " INTERROGAT I ON 

NORMAL : PRINT "QUESTION N*";I 

PRINT : PRINT : PRINT A$(1) 


PRINT PRINT "--> Votre réponse "үр: INPUT F$(I) 

IF ЕФ(12 = B$(1) THEN 2400 

PRINT : PRINT : INVERSE : PRINT " FAUX ^: NORMAL 
PRINT "--> La bonne reponse était : " 

PRINT B$(I) 


2290 UTAB 23: PRINT "TAPER UNE TOUCHE POUR CONTINUER";: GET C$ 

2295 GOTO 2500 

2400 PRINT : PRINT : INUERSE : PRINT " BONNE REPONSE "+: NORMAL 

2405 = V + 1 

2410 VTAB 23: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER";: GET C$ 

2500 NEXT I 

2550 HOME : INVERSE : PRINT "VOUS AVEZ : "; 

2550 SC = V / S * 20 

2565 NORMAL 

2570 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT " "ус FLASH 
PRINT SC"/20" 

2575 NORMAL 

2580 VTAB 23: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER";: GET СЪ 

2600 RETURN 

3000 HOME : INVERSE : PRINT " CATALOGUE ` ": NORMAL 

3010 PRINT D$"CATALOG" 

3020 ЧТАВ 24: PRINT "TAPEZ UNE TOUCHE POUR CONTINUER";: GET C$ 

3030 RETURN 


COMMENTAIRES : .. Ligne 1000 à 1060 : instructions 
Ligne 10 à 100 : titre du programme Ligne 1100 à 1490 : création de 
Ligne 110 à 150 : initialisation du l'interrogation 
programme Ligne 2000 à 3030 : interrogation avec 
Ligne 200 à 330 : menu principal les calculs de points 

APPLE ІІ et ПЕ 


GROSSE TETE 


Reconstituez les paires à partir 
de formes qui apparaissent au hasard sur votre écran. 
Pour jouer, 
pressez la touche M puis entrez les coordonnées 
horizontales et verticales de la bonne case. 


5 CLEAR 280 GET A$ 
SO TEXT 305 REM TEST CLAVIER 
55 HOME 330 IF АВ = "" THEN .280 
80 УТАВ 3 555 IF A$ < > "M" THEN 280 
108 HTAB 15 380 HOME 
130 REM INITIALISATIONS 405 DIM A(4,3) 
155 PRINT "MEMORY" 430 FOR I = 33 TO 42 
180 УТАВ 10 455  GOSUB 1405 
205 PRINT "REGROUPEZ LES SIGNES 480 GOSUB 1405 
PAR PAIRES !!!" 505 REM TIRAGE DES SIGNES 
230 УТАВ 15 530 МЕХТ 
255 PRINT "APPUYER SUR "М" POUR 555 SPEED- 255 
MELANGER" 580  GOSUB 1530 


605 
6зо 
655 
680 
705 
730 
755 
780 
805 


830 
855 
880 


905 


930 
955 


1005 
1050 
1055 
1080 
1105 
1150 


1155 


1180 
1205 
1230 
1255 


1305 
1330 
1355 
1380 
1405 
1430 
1455 
1480 
1505 
1530 
1555 
1580 
1605 


1630 
1655 
1680 


1705 
1730 
1755 
1780 


Е ЖЕ + Т 


x 


HTAB 28: УТАВ 5 

INVERSE 

PRINT "ESSAIS :"; Е 

GOSUB 1055 

GOSUB 1780 

= B:Y = С 

GOSUB 1055 

IF В = X AND С = Y THEN 1255 


REM UNE BONNE PAIRE !!! 

GOSUB 1780 

IF A(C,B) = A(Y,X) THEN 1255 
` 


PRINT СНЕФ (7); СНЕФ (7); СНЕФ 
(7); CHR$ (7); CHR$ (2); СНЕФ 
(2); CHR$ (7); CHR%$ (7); 

REM SYMPHONIE 

GOSUB 1680 


980 B = X:C = Y 


GOSUB 1680 
GOTO 605 

HTAB 29: VTAB 10 

INPUT "A,1 ?";A$,C 
В = ASC (АФ) - 65 

IF В < О OR В > 3 THEN 1055 


15:02 27082075 ӨК бш 52 
INT (с) THEN 1055 
Gie Усаа 

ЇЕ А(С,В) = О THEN 1055 
RETURN 

PRINT CHR% (7); 


1280 A(C,B) = O:A(Y,X) = O 


REM QUEL BELLE PAIRE !!! 
РЕР + 1 

IF P = 10 THEN 1855 

GOTO 605 
А = INT ( RND (1) X 5) 
в = INT ( RND (1) x 4) 

IF A(A,B) < > O THEN 1405 
А‹А,В) = I 


RETURN 

VTAB 1: HTAB 1 

РЕТМТЕ ЗА? В С D» 
PRINT 


FOR I = о TO 4: NORMAL : PRINT 
I + 1j" "%: FOR J = O TO 3: INVERSE : PRINT 
"y: NEXT : PRINT : PRINT : NEXT 


REM AFFICHAGE DU TABLEAU 
RETURN 

INVERSE : НТАВ В ж 5 + 3: VTAB 
С * + 3: PRINT "х"; 

REM  POSITIONNEMENT 

NORMAL 

RETURN 

NORMAL : HTAB B Ж 3 + 3: VTAB 
C * 2 + 3: PRINT СНЕФ (АСС, 
В)); 


NORMAL 


178 


PRINT 


1805 
1830 
1855 


NORMAL 

RETURN 

FOR с = O TO 4: FOR B = O TO 
3: GOSUB 1280: NEXT : МЕХТ 


1880 REM AFFICHAGE DE TOUS LES 
SIGNES 
1905 NORMAL 
1930 VTAB 24: PRINT "VOULEZ VOUS 
REJOUER ???" 
1955 СЕТ АФ 
1980 REM TEST CLAVIER 
2005 IF A$ = "О" THEN RUN 
2030 IF АФ < > "М" THEN 1955 
COMMENTAIRES : Ligne 530 à 805 : tirage des signes 
Ligne 955 à 1280 : symphonie 


E Ligne 1305 à 1605 : vous allez gagné 
Ligne 5 à 55 : initialisation de l'écran Ligne 1630 à 1680 : affichage du tableau 
Ligne 130 à 280 : présentation du jeu Ligne 1730 à 1855 : positionnement 
Ligne 330 à 355 : test du clavier Ligne 1905 à 2030 : fin de la partie 

APPLE ІІ et ПЕ 


421 


Formez à l'aide de trois dés 
la combinaison gagnante. 

Mais attention, pour arriver à faire 421, 
vous ne disposez que de trois essais. 
Pour lancer un dé, 
pressez la touche portant son numéro suivi de 
«Enter» 


10 
12 


24 
51 
38 
45 


52 


TEXT : HOME :G = O 
PRINT : PRINT " 
DU 421  " 
утав 10: PRINT "VOULEZ VOUS D 
ES INSTRUCTIONS ???" 
GET АФ: IF A$ = "" THEN 31 
IF A$ - "N" THEN 80 
HOME : PRINT "LE JEU DU 421 E 
ST UN JEU TRES SIMPLE !!" 
PRINT : PRINT : PRINT "IL SUF 
FIT D'OBTENIR UNE COMBINAISO 
NLA ": PRINT : PRINT : PRINT 


LE JEU 


"PLUS PROCHE DE 421 EN LANCA 
NT TROIS DES.": PRINT : 
: PRINT "POUR LANCER UN DES, 
"3: PRINT : PRINT 

PRINT "TAPEZ SON NUMERO ET RE 
TURN": PRINT : PRINT : PRINT 
"VOUS AVEZ LE DROIT A TROIS 
ESSAIS !" 

PRINT : PRINT : PRINT : PRINT 
: PRINT "APPUYEZ SUR LA BARR 
E D'ESPACE ." 

GET АФ: IF АФ >““ 


59 


66 


73 THEN 7 


PRINT 
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5 234 въ в + 1 
80 HOME 241 IF 6 = 4 THEN 276 
87 GOSUB 213 248 IF F = 1 THEN GOSUB 227 
94 GOSUB 220: GOSUB 227 255 IF D = 1 THEN GOSUB 215 
101 НТАВ 1: УТАВ 1 262 IF Е = 1 THEN GOSUB 220 
108 PRINT "VOICI VOS TROIS NUMER 269  GOTO 101 
os r> 276 HOME : PRINT "TERMINE !!!" 
115 PRINT : PRINT : PRINT : PRINT 285 IF X = 4 OR Y = 4 OR Z = 4 THEN 
"NUMERO 1 : "jX 297 
122 PRINT : PRINT : PRINT : PRINT 290 УТАВ 15: PRINT "DE TOUTES FA 
"NUMERO 2 : "jY CONS,VOUS N'AVEZ PAS REUSSI 
129 PRINT : PRINT : PRINT : PRINT ": GOTO 353 
"NUMERO 3 : "32 297 IF X = 2 OR Y = 2 OR 2 = 2 THEN 
136 VTAB 20: PRINT "ENTREZ 1,2 0 311 
U 3 PUIS RETURN" 304 вото 290 
143 D = ОЕ = 0:Е = O 311 IF X = 1 OR Y = 1 OR Z = 1 THEN 
150 GET АФ 325 
157 REM TEST CLAVIER 318 GOTO 290 
164 IF АФ = "" THEN 150 325 FOR R = 1 TO 10: PRINT CHRS& 
171 А = VAL (АФ): IF A$ = СНАФ (7): МЕХТ 
(13) THEN 234 332 КЕМ . ВЕЕР 
178 IF А < 1-OR A.» ЗООВОАСС > 339 УТАВ 15 
INT (A) THEN 150 346 PRINT "BRAVO , C'EST LE 421 
185 IF A = 1 THEN D = 1: GOTO 15 бірінін 
9 353 VTAB 22 
192 IF А = 2 THEN E = 1: GOTO 15 360 PRINT "VOULEZ VOUS REJOUER ? 
о ??" 
199 Е = 1: GOTO 150 367 GET АФ 
206 END 374 REM ENCORE UN TEST CLAVIER 
ЕТЕ = INT ( RND (1) #6) + 1: в DR 
TURN 381 IF A$ = "" THEN 567 
ЁТйнц " NT CRND (1) #6) * 1: ВО зөв ТЕ Am = "0" THEN RUN 
227 Z = INT ( RND (1) же) + 1: R 395 IF A$ - "N" THEN END 
ETURN 402 GOTO 367 
Ligne 101 à 136 : affichage du jeu COMMENTAIRES : 
Ligne 143 : initialisation des variables 
Ligne 164 à 206 : test du clavier 
Ligne 213 à 227 : tirage aléatoire des Ligne 10 : initialisation de l'écran 
dés ligne 17 à 80 : affichage de la 
Ligne 241 à 402 : fin de la partie présentation du jeu 
APPLE Il et ПЕ 


ALPHABET EN FOLIE 


Sauvez la ‘République 
en déminant une tour que le président doit inaugurer. 
Tapez T pour commencer puis entrez 
vos premières coordonnées. 
D'après les réactions de votre compteur Geiger, 
vous choisirez alors d'autres coordonnées. 


10 TEXT : HOME 60 IF АФ = "М" THEN 140 
20 КЕМ EFFACEMENT 70 REM EXPLICATIONS DU JEU 
SO PRINT : PRINT. " 80 HOME : PRINT "L'ALPHABET FOU 
ALPHABET FOU" EST UN JEU TRES SIMPLE Nrs 
40 УТАВ 10: НТАВ 1: PRINT "VOULE 90 УТАВ 4: PRINT "IL SUFFIT DE R 
2 VOUS DES INSTRUCTIONS 77?" EMETTRE LES LETTRES DANS": PR 
INT: PRINT : PRINT "L'ORDRE ALP 
SO  INPUT АФ: IF АФ = "" THEN 50 HABETIQUE !!!": PRINT : PRINT 


. 180 


: PRINT "POUR CELA,IL FAUT I "SN 
NVERSER LA CASE VIDE": PRINT 370 GET АВ 
: PRINT 380 REM TEST CLAVIER 
100 PRINT "AVEC UNE LETTRE VOISI 390 G = ASC (АФ) - 64 
NE !!": PRINT : PRINT : PRINT 400 IF G < 1 THEN 370 
"EN DONNANT LA LETTRE А INVE 410 IF G > 25 THEN 570 
RSER !!" 420 H = B(G):H1 = INT ((H - .1) / 
110 PRINT : PRINT : PRINT : PRINT 5) + 1:H2 = H - (H1- 1) * 5 
: PRINT "APPUYEZ SUR LA BARR 
E D'ESPACE" 430 IF Hi - E THEN 470 
120 GET A$ 440 IF Н2 < > Е THEN 370 
130 REM TEST CLAVIER 450 IF ABS (E - H1) < > 1 THEN 
140 DIM A(5,5),B(25) 370 
150 REM DIMENSIONNEMENT DES TAB 460 GOTO 480 
LEAUX 470 IF ABS (F - H2) < > 1 THEN 
160 HOME 370 
170 I = 1 480 IF G< > A(H1,H2) THEN 370 
180 J = 1 490 A(E,F) = G:A(H1,H2) = 25:B(G) 
190 C = ІМТ ( RND (1) Ж 25) + 1 = B(25):B(25) = Н: УТАВ 1: H 
200 REM TIRAGE AU SORT !!! тава: м = N + 1 
210 IF B(C) < > O THEN 190 500 ТЕ B(25) = 25 THEN 520 
220 B(C) = I x 5 + J - 5:А(Т,7) = 510 GOTO 290 
(е 520 I = 1 
230J=J+1 5303-1 
240 IF J < 6 THEN 190 540 IF A(I,J) = ((I - 1) * 54 J 
250 I= I+ 1 ) ТНЕМ 560 
260 IF I < 6 THEN 180 550 GOTO 250 
270 REM BOUCLES 560 тез + 1 
280 HOME 570 IF 2 < 6 THEN 540 
290 FOR І = 1 TO 5: FOR J = 1 TO 5801-1941 
5 590 IF I < 6 THEN 550 
300 ТЕ A(I,J) = 25 THEN A(I,J) = 600 REM BOUCLES 
- S2:IE = ПЕ = 3 610 HOME : PRINT "VOUS AVEZ GAGN 
310 PRINT CHR$ (64 + А(1,7))5" E EN "jNj" COUPS." 
DÉI 620 НТАВ 1: УТАВ 20: PRINT "VOUL 
320 REM AFFICHAGE DE L'ALPHABET EZ VOUS REJOUER ???" 
630 GET A$: IF A$ - "" THEN 630 
330 NEXT J 640 REM TEST CLAVIER 
340 PRINT : PRINT : PRINT 650 IF A$ = "О" THEN RUN 
350 NEXT I 660 IF A$ = "N" THEN END 
360 PRINT "NOMBRE DE COUPS D 670 GOTO 630 
COMMENTAIRES : Ligne 210 à 260 : test de jeu 
Ligne 10 à 110 : initialisation et Ligne 280 à 310 : boucle principale du 
explications du jeu jeu 
Ligne 120 : test du clavier Ligne 330 à 370 : affichage de 
Ligne 140 : dimmensionnement de l'écran l'alphabet 
ligne 170 à 190 : initialisation des Ligne 390 à 590 1 test du clavier 


fin de la partie » 
181 


variables Ligne 600 à 470 


APPLE Il et ПЕ 


DEMINEUR 


Regroupez des lignes électrifiées 
en poussant des cloisons spécialement concues. 
Bien entendu, 
qu'une ligne vous touche 
et vous étes aussitót expédié dans un monde meilleur. 
«А» déplace le haut de chaque mur, «7» le bas, 
«.» — gauche, «/» - droite. 


10 HOME 180 IF E = 20 THEN 270 
20 PRINT "COUP DE TELEPHONE ANON 190 УТАВ 10: PRINT "ESSAIS :"jE 
YME A L'A.F.P. :": PRINT : PRINT 200 УТАВ 15 
210 INPUT "ENTREZ VOS NOUVELLES 
30 PRINT "DES TERRORISTES ОМТ ТМ COORDONNEES (X,Y,Z)"3X,Y,Z: GOTO 
STALLE UNE BOMBE": PRINT : PRINT 130 
220 X2 = INT (X - X1):Y2 e INT 
40 PRINT "EXTERMINATRICE DANS LA (Y - Ү1):22 = INT (22222810 
NOUVELLE TOUR QUE": PRINT : 250 С * 12.52 - 588 (х2 23 у2 
PRINT : PRINT ke etr уй 2i] 
50 PRINT "LE PRESIDENT INAUGURE 240 С = (С % 100) / 17.32 
А LA DEFENSE !! PRINT : PRINT 250 с = INT (С % 1000) / 1000 
: PRINT 260 RETURN 
60 PRINT "VOUS AVEZ 20 ESSAIS FO 270 HOME : PRINT "GRACE А VOUS,L 
UR LA TROUVER ET ": PRINT : PRINT A FRANCE DEVRA VOTER": PRINT 
PRINT PRINT "DIMANCHE PROCHAIN ' 
70 PRINT "LA DESAMORCER ...." nU 
ВО PRINT : PRINT : PRINT "АРРМУЕ 280 УТАВ 15: PRINT "VOULEZ VOUS 
R SUR 'T' POUR LANCER LE JEU REJOUER 7???" 


90 UTAR 23: НТАВ 39: GET A$: ТЕ 


290 GET A$: IF A$ = "О" THEN RUN 


АВ < > "T" THEN 90 300 IF АФ < > "N" THEN 290 
100 HOME :E = 0 310 END 
110 X = O:Y = 0:2 = O:X1 = ІМТ ( 320 HOME : PRINT "BRAVO , IL VOU 
RND (1) X 10):Y1 = INT ( RND 5 RESTE 6 ESSAIS POUR": FEINT 
(1) X 10):Z1 = INT ( RND (1 : PRINT "TROUVER LE CODE GUI 
) ж 10) ARRETERA LA MACHINE" 
120 REM  INITIALISATIONS =o E = O 
1*0 GOSUB 220 340 СЕТ AS 
140 IF C - 100 THEN 320 350 REM TEST CLAVIER 
150 УТАВ 1: HTAB 1: PRINT "VOS C тво НОМЕ 
OOPDONNEES SONT X="3X3" Ye"; 370 C = INT ( RND (1) Ж 100) 
үр" ze"jz 380 VTAB 1 
160 УТАВ 5: PRINT "VOTRE COMPTEU 390 PRINT "ESGAI NUMERO: "5 Е 
В GEIGER INDIQUE ";с 400 INPUT "ENTREZ UN CODE (0-99) 
[2170 ЕС= е am m 
ы 


410 ТЕ А > 99 OR À < O OR A < > 
INT (A) THEN 380 

420E =E + 1 

430 ІҒ А = С THEN 480 

440 ТЕ А < C THEN PRINT "LE COD 


E EST PLUS GRAND !!!": GOTO 
460 

450 PRINT "LE CODE EST PLUS PETI 
аралы ы 


460 ТЕ E > 6 THEN 270 

470 GOTO 380 

480 HOME : PRINT “VOUS ETES VRAI 
MENT LE PLUS FORT !!!" 

490 FOR R = 1 TO 3000: NEXT : GOTO 


COUP DE TELEPHONE ANONYME А L'A.F.F. : 


DES TERRORISTES ОМТ INSTALLE UNE BOMBE 


EXTERMINATRICE DANS LA NOUVELLE TOUR QUE 


LE PRESIDENT INAUGURE A LA DEFENSE ptt 


280 VOUS AVEZ 20 ESSAIS POUR LA TROUVER ET 
SRUN 
LA DESAMORCER .... 
COMMENTAIRES : 5 Ligne 170 : compteur de coup 
Ligne 10 à 70 : explication du Jeu Ligne 190 : affichage du nombre d'essais 
Ligne 80 à 100 : attend une touche pour Ligne 210 : choix des coordonnées 
commencer i 
L 220 à 250 1 1 é 
Ligne 110 à 120 : initialisation des Гү POUR зала За ы 
variables i i 
L 360 à 490 h 
Ligne 150 à 160 : entrée des coordonnées БИЛ HM AUD SE 
APPLE ЇЇ et ПЕ. 


X RAYS 


Remettre les lettres dans l'ordre alphabétique ? 


Pas 


facile que са, 


quand on est obligé d'inverser la case vide 


avec une lettre voi 
Le jeu démarre seul; après, 


e. 
vous suffit de suivre 


les directives de l'ordinateur. 


1 HGR2 : HCOLOR= 7 
2 HPLOT 2,2 TO 260,2 TO 260,185 TO 
2,185 TO 2,2 
3 H = 2:B = 185:D = 2:6 = 260 
4 1 = 0:37 = 1 
10 х1 = INT ( RND (1) Ж 257) + 2 
х 


2 = INT ( RND (1) % 257) + 
Үй = INT с RND (1) X* 185) 


+ 2:Y2 = INT ( RND (1) % 1 
83) + 2 
20 А1 = INT ( RND (1) X 24) - 12 
ША? = INT ( RND (1) * 24) - 
12:B1 = INT ( RND (1) X 24) 
- 12:82 = INT ( RND (1) Ж 
24) - 12 


183 


Г зо HCOLOR= 7: HPLOT X1,Y1 то х2, 210 I = I + 1: IF I = 5 THEN I = 


Y2 o 
55 HCOLOR= 0: HPLOT X1(J),Y1(J) то 220 J = J + 1: ТЕ J = 5 THEN J = 
X2(J),Y2(J) о 
37 Х1(1) = X1:Y1(I) = Y1:Y2(I) = 230 GOTO 30 
Y2:X2(1) 500 HCOLOR= 7:H = H + 1: HPLOT G 
38 A1 = Аі + ІМТ ( RND (1) ж 2) - sH TO D,H: IF H > Yi OR H > 
1 Y2 THEN 500 
39 Bi = в: + INT ( RND (1) ж 2) - 310 F = F + 1: ТЕ Е = 50 THEN RUN 
1 
40 A2 = А2 + ІМТ ( RND (1) ж 2) - 520 GOTO 210 
1 350 HCOLOR= 7:B = B - 1: HPLOT G 
41 B2 = B2 + INT ( RND (1) ж 2) - «В TO D,B: IF B < Y1 OR В < 
1 Y2 THEN 500 
42 X1 = X1 + А1: IF ХІ > = G OR 360 вото 310 
X1 < = D THEN A1 = - Ai: GOTO 400 HCOLOR- 2:0 = D - 1: HPLOT D 
42 ;H TO D,B: IF D < X1 OR D < 
SO X2 = X2 + A2: IF X2 > = G OR X2 THEN 500 
X2 < = D THEN A2 = - A2: GOTO 410 GOTO 310 
50 450 HCOLOR= 7:6 = G + 1: HPLOT G 
60 ҮІ = ҮІ + Bi: IF ҮЛ > = B OR ЭН TO G,B: IF G > X1 OR G > 
Yı < = Н THEN B1 = - Ві: GOTO X2 THEN 500 
60 460 GOTO 310 
70 ҮЗ = Y2 + B2: IF Y2 > = B OR 500 TEXT : HOME : PRINT "VOUS AV 
Ү2 < = Н THEN B2 = - B2: GOTO EZ PERDU !!!" 
70 510 PRINT : PRINT : PRINT "VOULE 
80 X = PEEK ( - 16384): IF X < 1 2 VOUS REJOUER ???" 
28 THEN 210 520 GET A$: IF A$ = "O" THEN RUN 
90 POKE - 16384,0:X = X - 128 
100 ТЕ X = 65 THEN 300 530 IF АФ = "М" THEN END 
110 IF X - 90 THEN 350 540 GOTO 500 
COMMENTAIRES : positions des lignes 
Ligne 1 : initialisation de l'écran Ligne 30 à 70 : affichage et déplacement 
Ligne 2 : tracé du cadre du jeu des lignes 
Ligne 3 à 4 : initialisation des Ligne 80 à 110 : test de collision 
variables du jeu Ligne 210 à 360 : routine du jeu 
Ligne 10 à 20 : tirage aléatoire des Ligne 500 à 540 : fin de la partie 


AMSTRAD CPC 464 


PRONOSPORT 


Donnez la combinaison gagnante de la prochaine course 
et repartez les poches pleines! 
Beaucoup de sueurs froides en perspective... 


iB REM TILT PRONOSTIC 
ай REM definition des couleurs 

за MODE 1:BDEDER o: IK B.B:IMK 1.25:1МК 2,27:1НК 3,15:РАРЕЕ B 
40 REM init isation 

sa за: Пей:рей:Ешй:Ғ-й:РІПТ -2,-2,1 


50 
e 


FEM ouverture d 
MIHMDDHM #1,13,18,24,24 

FEN redefinition de caractere 
SYMEDL AFTER o 


SYMBOL 33,255,255,255,255,255,255,255,255 

REM decors 

FOR G-16 TO 388 STEP 16:TAG:MOYE B,G:PRINT"!";:MOVE &24,G:PRINT"'"; 
BEST G 


TAG:MOYE 0,14: PRINT 
TAG:MOVE й.60:РЕЇНТ"! 
ВВТ GE 


TAG: ‘MOVE а, 146: PRINT"!3!! 

TRHG:MOVE B, 246 РЕТНТ"! 

REM attribution des varial e 

аш=" TOM" OPEM 

REM affiche Pronostic 

TRG:MOVE 32,38:PRINT"PROHOSTIC";:INPUT 81,РЕО 

REM affiche chevaux 

Ин H-16,294:PRINT B$; :ТАС:МОМЕ Н.294416:РЕЇМТ A$; ТН МОЕ H,294-16:PK 
SOUND 1,209,1:SDUND 2,199, 1 з0ино 3,250,1 

TRG:MDVE В-16,196:РЕТНТ B$;:TAG:MOYE В, 196+16:РЕТНТ A$; :TAG:MOVE В, 196-16:РЕ 
СФ; 

UAE MOVE C-16.188:PRINT E$; :TAG:MOYE C,18B*16:PRIMT R$;:TRG:MOVE C, 188-16:PR 


ТЕС. MOVE Н,294-16:РБІМТ dë: :ТАС:МОЧЕ В, 196-16:РЕТНТ d$;:TRG:MOVE С,190-16 РК 
d$; 
R=R+RHD C1B82X16:B-E*RND CIlBOX16:C-C-RMD <102Ж16 
REM test 
IF В>52й THEN 398 
IF B520 THEN 398 
IF C>+520 THEN 398 
GOTO 284 
REM ordre d'arrive 
A>E AND ñ>C B»C THEN TRG:MOVE 169,3G:PRINT " 
R>E AND АХС СВ THEM ТАС: МОМЕ 32, 64: РКТНТ 
B>A AND вс A>C THEN TAG:MOYE 32,64 :PRINT 
B>A AND БОС СОН THEN TAG:MOYE 32,64:PRIHT 
Сон AND C2b b»R THEN ТАС: МОМЕ 32,64:PRINT " 
Cap AND C>b a»b THEM TAG:MOYE 32,64:РКІНТ "152 
ТАС: МОМЕ 32,48:PRINT"Pressez une touche"; 
FOR з=й TO 1BBB:MENT a 
IF 1МКЕҮ8-"" THEM 480 ELSE КОМ 


COMMENTAIRES : caractères 

Ligne 120 à 220 t affichage du décors 

Ligne 240 : attribution des variables 
Ligne 30 : définition des couleurs Ligne 260 : affichage des pronostics 
Ligne 50 : initialisation des variables Ligne 280 à 330 : affichage des chevaux 
Ligne 60 à 70 : ouverture de Та Ligne 350 à 370 est du clavier 
fenétre Ligne 400 à 450 : ordre d'arrivée 
Ligne 90 à 100 : redéfinition des Ligne 460 à 480 : fin de la partie 


AMSTRAD СРС 464 


CHASS'LETTRES 


Des lettres tombent du haut de l'écran, 
attrapez-les et reconstituez 
le mot proposé par l'ordinateur. 
Pour vous déplacer, utilisez la touche «>» pour aller à 
droite, et la touche «<» pour aller à gauche. 


1 DATA "CROIX","LIURE" ," JOUTE" , " COPIE" 
2 DATA "ARCADE" , "VILLE" , " BANDE" , "RIRES" 
3 DATA "JOUER" ,"RASER" , "VOLER" , "ALLEE" 
а DATA "TOUCHE" , "BALLE" , "FUMEE" , "UIRER" 
5 DATA "CACHE", "ROUES" , "RALES" , "MALLE" 
10 CLEAR :DIM В<5) 

11 SPEED KEY 1,1 

100 CLS 

101 RESTORE 

105 A=RND(1 ) 20 

106 FOR 1-1 TO À 

107 READ 2$: NEXT I 

110 LOCATE 35,1 :PRINT Z$ 

115 X=20 

120 LOCATE X,25 :PRINT "£" 

121 B=RNDC1)%39+1: A-RND(I) 526865 

122 FOR J=5 TO 24 

123 LOCATE B,J :PRINT CHR$(A) 

124 FOR K=1 TO 30 

125 A$="":AS=INKEYS :IF A$="" THEN 140 
126 LOCATE X,25 :PRINT " " 

130 IF A$="," AND XO1 THEN ХеХ-1 

181 IF A$="." AND X439 THEN Хэхэ! 

185 LOCATE X,25 :PRINT "£" 

136 NEXT K 

137 FOR 1-1 TO 20 :МЕХТ I 

140 LOCATE B,J :PRINT " " 

150 NEXT J:IF XO INT(B) THEN 121 

160 FOR 1-1 TO 5 

161 IF MID$(Z$,I,1)-CHR$(A) THEN 170 
162 NEXT I: S-S*1:G0TO 121 

170 IF.B(I)-1 THEN 162 

171 LOCATE 34+1,1: PRINT "x" 

172 5-5-2 

180 FOR 1-1 TO 5 

181 IF B(I» O1 THEN 121 

| 182 NEXT 1 


190 PRINT"SCORE :";100-5 
195 SPEED KEY 120,30 
200 ЕМО 


COMMENTAIRES : 


Ligne 1 à 5 : liste des mots pouvant 
être choisis 

Ligne 105 à 110 : choix du mot à former 
Ligne 115 à 120 : affichage du dièse 
Ligne 121 1 choix de Та lettre qui va 


Ligne 122 à 150 : boucle du jeu 

Ligne 124 à 136 : test clavier et 
déplacement du dièse 

Ligne 137 à 162 : test si la lettre 
attrapée est contenue dans le mot 

Ligne 170 à fin : si oui, incrémentation 
du score et test si le mot est formé en 


tomber entier. 


AMSTRAD CPC 464 


AMSTRAD MIND 


Réplique du célèbre jeu «Master mind», 
Amstrad mind va mettre votre mémoire à rude épreuve. 
Entrez votre combinaison suivie de «return». 


REM MRSTRRD 
& MODE 1 


Пе G 
ИТНООН #1, 1, гай, 25, 25 
REM MASTER МІНБЕ 
за REM 
эй REM TIRAGE DES CHIFFRES 
184 INPUT "NIVEAU DE DIFFICULTE: €1-342"3NMAX 


л 


188 

198 оштеа TO 23 

za El 

210 TEXSSLEFT$i FORMS, Hp PRINT #1, ТЕ : INPUT #1, ВВСОФ 
228 IF LEMCABCOS < ЗНИВХ THEM PRINT CHES. 7); : GOTO 214 


PRINT ввсрвн" "; 


FüR Т=1 ТО HMRE 


187 


Мем Мс АЕС, T, 1322 
N 2 THEN РЕН 2: РЕТНТ CHP: 


"o "j: BON=BDH+1 : G 
ШЕШІНГЕН 
PRINT $1," 
FOR T=1 
PRIHT 
СОСАТЕ 
š THEN RUH 
THEN EHD 
COMMENTAIRES : combinaison et test du format 
Ligne 10 à 40 : initialisation de Ligne 230 à 310 1 test si valeur 
l'écran et des fenétres présente est bien placée 
Ligne 70 à 100 : choix du niveau de Ligne 320 : test perdu ou gagné 
difficulté Ligne 330 à 370 : affichage "bravo" * 
Ligne 110 à 170 : tirage du chiffre et musique 
retirage si 2 fois Те méme Ligne 380 à 420 : affichage de perdu et 
Ligne 180 à 220 : saisie de la redémarrage du jeu 
AMSTRAD CPC 464 


MORPION 


Alignez cinq pions sur une ligne verticale, 
diagonale ou horizontale 
et écrasez l'ordinateur par votre supériorité stratégique. 
Méfiez-vous cependant. 
Son habileté est digne de celle des meilleurs cancres... 


5 MODE 1:CLS:INK 0,0:INK 1,24:1NK 2,17:INK 3,14 

10 DEFINT &-M,R-Z:DIM 5(79),РС(99),М(21) 

15 ‘ON BREAK GOSUB 700 

20 N(O)=0.01 :N(1)=0.03:NC(C2)=0.5:N(3)=10:N(4)=10000:N(5)=0.1 1NC10022:NC15272100:NC 
202=1000000 :9$(0)="00":g#(1)="10" :48(2) "20" :а+ (3) <" 

30" 19$(4»2* 40^ :а8(5)-"50" :08(6)-140":08(7)-"70":0808)-"80":08(9)-"90" 

25 SYMBOL AFTER 250 

26 SYMBOL 250,8X111100,8X1100110,8X11000011,255,255,8X11000011 з8Х1100110,%Х11110 


30 valur$-CHR$(L 47) +СНЕФС 172) +СНЕФ (182) +СНЕФ (173) +СНЕФ( 183) +СНЕФС 184) +СНЕФС 177) + 
CHR£ (180) +СНЕЪ (172) +СНЕФ( 169) +СНЕФС 132) +СНЕФС 177) + СН 
RS 165) +CHR$ (182) +СНЕФ< 183) +СНАФ( 1 57) +СНЕЪС 165) +СНК+ (176) 
31 A$-CHR$(250):B$-CHR$(224) :C$=CHR$( 144) 
100 ERASE 5,Р:01М PC99),5(99) :4=0:B=0:CLS 
200 GOSUB 500:6050В 400:1F C<>0 THEN GOTO 260 
210 ERASE P:SOUND 7,350,10,12:DIM Р(99):10САТЕ 28,21:PEN 1:PRINT"A moi ...."3 
H=90:GOSUB 300:D=9:E=4:F=9 :Н=50 : GOSUB D 
300: GOSUB 300:D-211:F-5:G08UB 300:q=-1 :0=0 
220 FOR 1-0 ТО 99:1F s(i)<>0 OR р<1) <4 THEN 225 ELSE IF р<і224 THEN d=i:q=p(d):o 
ті ELSE o=0+1:1F o*RND<1 THEN d=i 
225 NEXT 
280 LOCATE 35,11:PRINT d;:s(d)=5:G0SUB 350:a-a*i:IF a=100 DR (р(ао-0 AND a)i) TH 
EN Б-2:00Т0 310 
240 IF p(d)>=n(20) THEN b-1:G0TO0 310 
260 PEN 1:LOCATE 38,13:PRINT "..";:LOCATE 28,21 : SOUND 7,150,10,12:РКІМТ "А vous: 
"WINDOW £0,35,38,21,21:CLS:INPUT "",s:WINDOW £0,1, 
40,1,25:1F 5297 OR 540 THEN 260 
265 IF s(sX4»0 THEN LOCATE 1,2 EN 2:PRINT"Case deja occupee..";:GOTO 260 
266 LOCATE 37,13:PEN 1:PRINT s ОСАТЕ 25,11:PRINT "Je joue en .."; 
270 s(s)21:G0SUB 340:a-a*1:1F a-100 THEN b-2:GO0TO 310 ELSE IF p(s)>=n(4) THEN b= 
-1:50Т0 310 ELSE LOCATE 1,25:PRINT SPACE#(30) ; :GOTO 
210 
300 k=d*4:FOR ісе ТО f:FOR jeg TO h STEP 10:s=i+j:p=s+k:z=0:FOR 1== TO p STEP d: 
z=z+s(1):NEXT:o=n(z):IF o<>0 THEN FOR 1== TO p STEP 
dip(1)=p(1)+o:NEXT 1 
305 NEXT j,i:RETURN 
310 LOCATE 1,25:1F b=1 THEN PRINT"J'ai gagne en"; ELSE IF b--1 THEN PRINT"Vous & 
vez gagne en"; ELSE PRINT"Partie nulle apres"; 
320 PRINT a;"coups":FOR ізі TO 10000 :NEXT : RUN 
350 LOCATE (d/10-FIX(d/100)*20*4,FIX(d/100*2*5:PEN 2:РКІМТ a$; :RETURN 
360 LOCATE (s/10-FIX(s/102)*20*4,FIX(s/10) ж2+5:РЕМ 3:PRINT b$; : RETURN 
400 LOCATE 4,3:РВЇМТ"О0 1 2 3 4 5 6 7 8 9";:FOR i=0 TO 9:LOCATE 1,5%іж2іРКІМТ 0% 
1» үз МЕХТ:ЕОВ: іш5 TO 23 STEP 2:FOR j=4 TO 22 STEP 2:1. 
ОСАТЕ і,і:РКІМТ c$;:NEXT ), |: RETURN 
500 CLS:PEN 1:LOCATE 1,1:PRINT CHR$(150)0S8TRING$C38,1542 СНЕ (156) :РОК і=2 TO 10:1 
ОСАТЕ 1,i :PRINT CHR$(149) :LOCATE 40,i:PRINT СНЕФС149 
):NEXT:LOCATE 1,11:PRINT CHR$(147)STRING$(38,154) СНЕФ( 153) 
505 PEN 2:LOCATE 3,3 
510 PRINT STRING$(5,224) SPACES(18)CHR$(224) {LOCATE 3,4:PRINT CHR#(224)" "CHR$(22 
4)" "CHR$(224) :LOCATE 3,5:PRINT CHR$(C224)" "CHR$(2 
24)" "STRING#(5,250)" "STRING$%(4,224)" "STRING$(4,250)" "CHR$(224)" "STRING$(5, 
250)" "CHR$(224)" "CHR$(224) 
520 LOCATE 3,6:PRINT СНКФ‹ 224)" "CHR#(224)" "СНКФ(250)" "CHR$(250)" "СНЕФ 22 
4)" "СНЕФС224)" "СНЕФС 250)" "СНКФ( 250)" "CHR$(224 
y" "СНЕФС 250)" "СНЕФС 250)" "СНЕФ( 224) СНЕФ( 224)" "СНЕФС 224) 
530 LOCATE 3,7:PRINT СНКФ (224) " "СНЕФ( 224)" "СНЕФ( 250)" "СНЕФ( 250)" "STRINGS 
5,224)" "STRING#(4,250)" "CHR$(2245" "СНЕФ( 250)" 
"СНЕФС 250)" "СНЕФ(С 224)" "СНЕФ( 224)" "CHR$(224) 
540 LOCATE 3,8:PRINT СНЕФ( 224)" "CHR$(224)" "СНКФС250)" MCHR$(250)" "CHR$(C22 
4)" "CHR$(224)" "CHR$(250)" "CHR$(224)" "CHR$C2 
50)" "CHR#(250)" "СНЕФ(224)"  "CHR$(224) СНЕФ (224) 
550 LOCATE 3,9:PRINT CHR$(224)" "СНЕФС 224)" "STRING#(S,250)" "СНЕФ‹ 224)" "CH 
R$(224)" "CHR$(250)" "CHR$C2242" "STRING$(S,250)" 
"CHR$(224)" "CHR$C224) 
540 PEN 3:LOCATE 9,12:PRINT СНВФС164)" 1985 -LDIR- ,—e-B-t" 
570 PEN 1:LOCATE 1,14:PRINT" Le but de ce jeu de reflexion est d'aligne 
r cinq pions dans l'une des trois directions suivant 
PEN 2:PRINT:PRINT" £ DIAGONALE" : PRINT" £ HORIZONT 
1PRINT" £ VERTICALE" 
580 PEN 1:PRINT:PRINT" . Votre adversaire est le CPC 464." 
400 LOCATE 7,24:РЕМ 3:PRINT"Uoulez vous commencer (0/М) 2" 
610 i$-INKEY$:1F i$="" THEN 610 
415 IF i$O"o" AND i$O"n" AND i$O "0" AND i$<>"N" THEN LOCATE 11,25:PEN 1:PRINT 
"Qui ou Non S.V.p.":FOR ісі ТО 2000:NEXT:LOCATE 11,2 
5: РЕТМТ 8РАСЕФС18 620 ТЕ i$="o" OR i$="0" THEN cl 


» 
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INT"Et vous les ";:PEN 3: РЕТМТ b$;:PEN 1:LOCATE 24,1 

S:PRINT"Vous jouez en ..";:LOCATE 25,11:PRINT"Je joue en .."; 

640 LOCATE 1,1:PEN 2:PRINT" ж MORPION ж "CHR$(164)" 1985 -LDIR- 
$50 PEN 1:RETURN 


700 RUN 

COMMENTAIRES : VALUR$ 
Ligne 100 à 210 : définition des 
tableaux de variables et initialisation 
Ligne 260 à 505 : entrer vos 

Ligne 5 : définiton de l'écran graphique déplacements et réflexion de 

Ligne 20 : initialisation des variables l'ordinateur 

Ligne 25 à 26 : redéfinition des Ligne 400 à 550 : affichage des 

caractères graphiqu graphismes à l'écran 

Ligne 30 : initialisation de Та variable Ligne 570 à 700 : commentaires du jeu 

AMSTRAD CPC 464 


CATA-TIR 


Détruisez sans remord les dépóts de vivres de l'ennemmi. 
Vous pourrez ainsi vous rendre maitre de toutes 
ses places fortes. 
Pour l'attaquer, vous disposez d'une catapulte 
dernier modèle : il vous suffit 
d'indiquer un angle de tir et de presser la touche «enter». 


1 * ON BREAK GOSUB 8000 

5 INK 0,0:INK 1,15:INK 2,9:1NK 3,25 

é PAPER 0: ВОКОЕК 0 

10 DIM xb(50),yb(50):ti=1 

11 SYMBOL AFTER 199 

12 SYMBOL 199,0 ,&X11000 , 8211000 ,8&X11000,&X1111110,8&X11000 ,&X11000,0 

13 SYMBOL 200,4Х111100,4Х100100,%Х100100,%Х11100111,8%Х10000001,%Х11100111,%Х1001 
00,&X111100 

14 SYMBOL 201,0,0,0,4Х111100,4Х1111110,8Х1100110,4Х1111110,8Х1111110 

15 SYMBOL 202,4Х10001000,ёХ10001000,8Х10001000,255,128,128,128,255 

16 SYMBOL 203,8X10001,8X10001 ,&X10001,255,&X10000001 ,&X10000001 ,&X10000001 ,255 
17 SYMBOL 204,8,8,8,255,128,128,128,255 

18 SYMBOL 205,&X1111,&X1111,&X1111,255,131,131,131,255 

19 аф=СНАФ( 14) +СНЕФ( 1) +СНЕФ( 15) *CHR$ C2) + СНЕФ (200) €CHR$(22) +CHR$ (1) &CHR$CB) +СНЕФ С 
15) *CHR$(0) +СНЕФС 199) +СНЕФС22) «CHR$CO) 

20 b$-CHR$(CI4)*CHRECO) *CHR$CIS) +СНЕФ( 1) +СНЕФС201> 

21 SYMBOL 206 ,4Х11110000,&Х11110000,8Х11110000,255,4Х11000001 ,&X11000001 ,&X11000 
001,255 

24 c$-CHR$CIA) +СНКФ( 1) +СНЕФС 15) *CHR$C2) 

25 SYMBOL 207,0,7,8X1111,8X11111,&X111111,8X111000,8X111111,&X111111 


190 


26 SYMBOL 208,0,&X11100000 ,&X11110000 ,8X11111000,8X11111100,8X11100,&X11111100,& 

X11111100 5 

27 SYMBOL 209,5X111111,8X111111,8X111111,8X111111,8X111111,8201011111,8X111111,&X1 

ШЕ 

28 SYMBOL 210,&X11111100,&X11111100,&X11111100,&X11111100,&X11111100,&X11111100, 

&X11111100,&X11111100 

29 SYMBOL 211,8X1111,8&X11000 ,&Х110000 ,&Х11100000 ,&X1000000 ,&X1000000 ,&X1000000 ,& 

X11000000 

30 SYMBOL 212,8X11110000,&X11000,&X1100,8X111,&X10,&X10,&X10,&X11 

31 SYMBOL 213,&X1000000 ,&X1000000 ,&X1000000 ,&X11000000 ,&X1000000 ,&X1000000 ,&X100 

0000 ,8 1 1000000 

32 SYMBOL 214,&X10,&X10,&X10,&X11,&X10,&X10,&X10,&X11 

33 dé=CHR$ (14) +СНЕФ(0) +СНЕФС 15) +СНЕФ( 3) +СНЕФ (22) * CHR$(C12*CHR$(C207) + CHR$C208) € CHR 

$10) +СНЕЪ (8) +СНЕФ (8) +CHRS( 207) +СНЕФ (210) & СНЕ+( 22) +С 

HR#(0) 

50 cm$-"vingtdeuxtrentequatretrentetroiscestchezmoi" :xf$-"vingtdeuxvingtquatrequ 

atrevingthuit":cm=223433:xf=222488 

100 MODE 1:CLS:GOSUB 600:LOCATE 1,1:PRINT STRING$(4,112; :LOCATE 1,1:PEN 2:РКІМТ" 
"СНЕФ( 164)" 1985 -LDIR- Ч) 

110 LOCATE 6,2:РБІМТ b$b$b$b$b$"  "b$b$" "ЬФЬФЬФЬФЬФ"  "b$b$b$b$b$"  "b$b$b$b$b 


* 

115 x$=CHR$(202) :y$=CHR$(203) : 2 + СНЕФ( 204) :w$=x$+y$:LOCATE 4,З:РКІМТ х%2%2%2%у%" 
"w$" "x$z$fz$z$y$" "ха авг ву?"  "x$z$z$z$y$:LOCA 

ТЕ 6,4:PRINT w$" "w$" "w$" "w$" "иф 

120 LOCATE 6,5:PRINT w$b$b$b$" "wẹ" "w$b$bt" "w$" "b$b$"  "web$bt 

125 LOCATE 4,Ф:РКІМТ x$z$z$z$y$" "w$" "x$z$z2$y$" "we" "wẹ"  "x$z$z$y$ 

127 ‘PRINT xf$,cm$,cm,xf 

130 LOCATE 7,7:PRINT " "w$" "w$" "w$" "wg" "w$"  "w$:LOCATE 6,8:РВЇМТ b$b 

$bf$wt" "wt" "w$b$b$b$" "w$b$w$"  "w$b$btb$:LOCATE 

6,9:PRINT x$z$z$z$y$" "w$"  "x$z$z$z$y$"  "x$z2$z2$2$y$"  "x$2$2$2$y$ 

140 LOCATE 1,11:PEN 2:PRINT"Reglez votre canon pour casser les ";b$:PEN 2:PRINT" 

Vous devrez regler votre angle de tir etvotre puissa 

nce de feu." :PEN 1:PRINT" 30 «ри! ввапсе< 100 et 0<апо1е<90" 

150 PEN 2: ОСАТЕ 28,22:PRINT" * ENTER $":LOCATE 25,23:PRINT"-pour commencer-":LO 

САТЕ 25,18:PRINT"3 Спа езих" :LOCATE 25,19 :PRINT"di ff 

erents." 

160 n$2INKEY$:1F n#$<>CHR#(13) THEN 160 

200 ni=ti:ERASE xb,yb:DIM хь(50) ,>b(50):1F ti>3 THEN ni=ti-INT(ti/3)x3 

210 MODE 0:РЕМ 1:LOCATE 1,12:PRINT" Chateau No";ti:FOR ісі TO 5000:NEXT 

300 MODE 1:CLS:0N ni GOSUB 1200,1300,400- 

499 GOTO 710 

500 PEN 1:LOCATE 1,22:PRINT STRING$(40,131) : RETURN 

510 PEN 3: РАРЕК 0:DEG:x1-x-FIXCI #СО8(а)) :y17y-FIXCI *SINCAa22 

515 МОЧЕ x1,»1:DRAÀW х,у,ҒҒ 

530 RETURN $ 

540 PEN 3:LOCATE 40,1:PRINT"M";:LOCATE 40,2:PRINT"U";:LOCATE 40,3:PRINT"N" ; :LOCA 

TE 40,4:PRINT"I";:LOCATE 40,5:PRINT"T";:LOCATE 40,6: 

PRINT"I";:LOCATE 40,7:PRINT"O";:LOCATE 40,8:PRINT"N";:LOCATE 40,9 :PRINT"S" 

550 mi=INT(mu/10) :m2=mu-10%*m 1$-STR$(Gn1) :m2$-STR$(Gmn2) : РЕМ 2:LOCATE 37,11:PRINT 
mi$;:LOCATE 39,12:РКІМТ m2$;:RETURN 

600 CLS:GOSUB 500 

810 FOR i=19 TO 21:LOCATE 3,i:PRINT c$CHR$(202);:PRINT STRING$(16,204); :PRINT СН 

R$(2032 :МЕХТ i 

420 LOCATE 2,18:PRINT СНЕ (202) ;STRING$(18,204) ; CHR$( 203) 

630 FOR i213 TO 17:LOCATE 1,i:PRINT CHR$(202);:LOCATE 16,і:РБІМТ CHR$(C202) ; :LOCA 

ТЕ 2,i :PRINT STRING$(5,204) ;CHR$( 203) ; :LOCATE 17,1:Р 

RINT STRING$(5,204) ;CHR$(203) ; :NEXT i 

540 FOR i=ié TO 17:LOCATE 7,i:PRINT CHR$(205);STRING$(8,204) ; СНКФ (206) :МЕХТ i 

650 FOR i TO 7:LOCATE i,12:xb(id=i:yb(i)=12:PRINT b$;:LOCATE i+15,12:xb(i+7)=i 

*15:ybCi *727212:PRINT b$;:NEXT 

660 LOCATE 8,15:FO0R 1-8 TO 15:xb(i+7)=i:ybCi+7)=15:PRINT b$;:NEXT i 

670 LOCATE 2,14:PRINT a$:LOCATE 6,15:PRINT a$:LOCATE 2,1ó:PRINT a$:LOCATE 21,14: 

PRINT a$:LOCATE 17,15:PRINT a$:LOCATE 21,16:PRINT a$ 

:FOR 1-6 TO 10 STEP 2:LOCATE i,18:PRINT a$:NEXT i:FOR і=13 TO 17 STEP 2:LOCATE i 

„18: РЕТМТ a$:NEXT i 

680 LOCATE 11,20:PRINT d$ 

699 PAPER 0:K-22:RETURN 

710 x=FIXCRNDCTIME) *x100)+520:y=FIXCRND(TIME)*50)+70:PEN 1:FOR 1560 TO у:МОУЕ х-3 |y 
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EE 


0,i:DRAW х, Г, 3: МЕХТ :ти=35:сі=0 

720 GOSUB S40:LOCATE 1,23:PEN 2:PRINT"Cibles";ci;"Force";Pu;"Angle";an;"sc";SC;" 
"P:LOCATE 1,24:РЕМ 1:PRINT"Entrez votre puiss 

ance: "СНЕЪ( 242)"; S"CHR$(2435" "ТРЕМ 2:PRINT" "ENTERS pour valider 

"t:pu-30 

730 n$-INKEYS:LOCATE 34,24:PEN 1:PRINT ри: ТЕ n 

735 IF n$-"$" AND pu>30 THEN pu=pu-0.5:a=0:ff= 

САТЕ 35,24:PRINT" ":60TO 730 

740 IF n$=";" AND pu<100 THEN pu=pu+0.5:a=0:ff=1:1=pu:GOSUB 510:LOCATE 35,24:PRI 

NTS OTO 730 

745 IF n$-CHR$(13) THEN 1=pu:GOTO 760 

750 GOTO 730 

760 LOCATE 1,24:PEN 1:PRINT"Entrez votre angle de tir: "CHR$(240)"q a"CHR$(241)" 

":РЕМ 2: РЕТМТ" "ENTERS pour valider":an-45 

765 n$-LOWERSCINKEYS) :LOCATE 34,24:PEN 1:PRINT ап: ТЕ n$="" THEN 745 

720 IF n$-"q" AND an<90 THEN ff=0:a=-an:GOSUB 510:an-an*0.5:a--an:ff-1:60SUB 510 

:LOCATE 35,2 RINT" ":GOTO 745 

780 IF пФ="а" AND ап20 THEN ffz0:a--an:GOSUB 5i10:an-an-0.5:a--an:ff-1:G0SUB 510: 

LOCATE 35,24:PRINT" ":GOTO 765 

790 IF n$4»CHR$C13) THEN GOTO 765 

800 ff=1:FOR а=0 TO -an STEP -1:G0SUB 510: МЕХТ 

810 mu=mu-1:FOR ісі TO 500 STEP 0.1:1Е у1<400 THEN хазхі:уатуі 

820 x1=FIX(x-puxCOS( ап) xt) :y1-FIX(y*5-2*t*t*puxSINCan)*t) ^ 

830 ІҒ у12400 THEN 880 

840 IF х1<0 THEN SOUND 7?,3000,10,15:60Т0 900 

850 IF y1<60 THEN SOUND 7,4000,10,15:GOTO 900 

860 IF ТЕЗТ<х1,»1) <20 THEN 920 

870 PLOT xa,ya,0:PLOT xa*l,vya,0:PLOT xa,ya+i,0:PLOT xa*i,va*i,0:PLOT xi,yi,2:PLO 

Т x1*1,»1,2:PLOT x1,y1+1,2:PLOT х141,у141,2 

880 SOUND 7,у1,2,13:МЕХТ %:60Т0 900 

900 PLOT xa,ya,0:PLOT xa*i,va,0:PLOT ха,уа+1,0: РОТ xa+i,ya+i,0:ff=0:FOR a=0 ТО 

-an-1 STEP -1:00508 510:МЕХТ:ІҒ mu>0 GOTO 720 ELSE 1 


="" THEN 730 
:60SUB S10:ff=1:1=pu:GOSUB 510:10 


050 
920 хЗ=1МТ(х1/146) +1 :у3=25-ІМТ(у1/14) :ЕОК ізі ТО kix2=xb(i):y2=yb(i) 
940 IF х2=х3 AND y2=y3 THEN SOUND 7,500,50,15:LOCATE x2,v2:PRINT" "ysh=h-lici=ci 


+1:вс=вс+10:1Р ci<k THEN 900 ELSE GOTO 1000 
950 NEXT :SOUND 7,500,50,15,0,0,1:МОУЕ x1,y1:DRAU х1-4,у1,0::МОМЕ x1,y1:DRAW хі- 
4,у1-4,0:МОМЕ x1,y1:DRAU хіз4,у1,0:М0УЕ x1,y1:DRAU x 
1+4,у1-4,0 
760 GOTO 900 
970 “саБг!езса! а5 
971 'chrichri 
1000 SOUND 7,400,200,15:! ОСАТЕ 1,23:PEN 1:PRINT" BRAUO......Vous avez detruit to 
utes lescibles.Votre score est de:";sc*mux100" 

158 "LOCATE 1,25:PEN 3: РЕТМТ" "ЕМТЕКЗ Pour passer au chateau suivant." :sc-sc«m 
ци 
1010 IF ІМКЕҮ%<>СНБФ%(13) THEN 1010 
1020 ti-ti*1:GOTO 200 e 
1050 SOUND 7,2000,200,13:LOCATE 1,23:РЕМ 3:PRINT"Vos munitions sont epuisees.La 
partie est terminee.Votre score est:";sc*ci X20:FOR 

i=i TO 15000:NEXT:GOTO 1100 
1100 CLS:RUN 
1200 PAPER 0:00508 S00:FOR i=19 TO 21:LOCATE 1,i :PRINT c$CHR$(202) STRING$(20,204 
)CHR$(203) ; :NEXT 
1210 FOR i215 TO 18:LOCATE 5,i :PRINT сФСНЕФ (202) STRING$CI-10,204)b$; :xb(Ci-142-i- 
4:ybCi-14)=i :NEXT 
1220 FOR (55 TO 10:LOCATEei ,14:PRINT ЬФ; :хЬ‹і)=і :yb(i)=14:NEXT 
1230 FOR i=ié TO 18:LOCATE 18,i:PRINT c$CHR#(202) CHR$(204) :NEXT 
1240 LOCATE 18,15:PRINT b$b#:xb(11)=18:xb(12)=19:yb(11)=15:yb(12)=15 
1250 FOR i=20 ТО 22:LOCATE i,18:PRINT b#;:xbCi-7)=i:ybCi-7)=18:NEXT 
1255 FOR i=2 TO 20 STEP 2:LOCATE i,20:PRINT a$;:NEXT 
1256 LOCATE 6,17:PRINT d$ 
1260 К=15:РАРЕК 0:RETURN 
1300 GOSUB S00:FOR i=1é TO 21:LOCATE 1,i:PRINT c$CHR$(202) STRING#(20,204) СНЕФ (20 
3); :NEXT 
1310 i=15:LOCATE 1,i:PRINT c$CHR$(202)CHR$(203) ; : PAPER 0:РЕЇМТ"  "C$CHR$(202) CHR 


$(203);:PAPER 0:РВЇМТ"  "c$CHR$C202) CHR$C203) ; : PAPER 
О:РВЇМТ"  "c$CHR$(C202)CHR$C203) ; : PAPER O:PRINT" —"c$CHR$(202) CHR$(203) ; : PAPER 0 
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ҮРВЇМТ" "c#$CHR$%(202)CHR#(203); 
1320 FOR 1-1 TO 22 STEP 4:LOCATE i,14:PRINT b$b#;:xb(i)=i:yb(i)=14:xb(i+1)=i+1l:y 
bCi *12214:NEXT 

1330 FOR i73 ТО 1? STEP 4:LOCATE i,15:PRINT b$b$;:xbCiozi :»ybCiom1S:xb(Ci*l1omitlty 
b(i+1)=15:NEXT 

1340 FOR i=3 TO 21 STEP 2:LOCATE i,17:PRINT ав; :МЕХТ 

1350 LOCATE 10,20:PRINT 98 

1360 FOR i=3 ТО 21 STEP 3:LOCATE i,19:PRINT a$;:NEXT 

1380 k=22:PAPER 0:RETURN 

1400 PAPER 0 


8000 RUN 

COMMENTAIRES : Ligne 210 : affichage du château п"Х 
Ligne 300 : passage en mode graphique 
Ligne 540 à 745 : affichage des décors 

Ligne 5 : initialisation des couleurs de de jeu 

l'écran Ligne 760 à 770 : choix de l'angle de 

Ligne 6 : initialisation de l'écran tir 

Ligne 11 à 33 : redéfinition des Ligne 800 à 960 : calcul et affichage du 

caractéres graphiques tir 

Ligne 110 à 130 : affichage du cháteau Ligne 1000 : vous avez gagné 

Ligne 140 à 150 : définition de l'angle Ligne 1200 à 1380 : affichage d'une 

de tir partie des décors 


AMSTRAD CPC 464 


MOTS CACHES 


Trouvez les lettres qui composent le mot 
caché dans la mémoire de 
l'ordinateur. Attention, toute lettre déjà tapée 
est refusée. 

Pour jouer, tapez une lettre suivie de «return». 


18 MODE ü 
га М1НООМ 1,40,15,20:МІМООМ #1,1,4й,21,25 
за 1нкой, 1: 1НК 1, 24: 1НК. 2,26 ? 


B FHPER #0, 0: РЕН SB, 1: РАРЕЕ #1,1: РЕН 81.0 
58 FOR COL=3 TO 15:IMK COL, 1:NEXT 

D PAPER Й:РЕМ 1 

GOSLE ага 

Ва REM HM-HOMERE МН» DE САТА 

за NM=20 


(269 

118 RzIHTCHMERHDGS 22941 

124 RESTORE 

138 FOR Т=1 TO A:READ AS:HEXT 
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148 
150 
164 
170 
180 
190 
гай 
218 
220 
239 
240 
254 
268 
era 
ева 
234 
зай 
318 
320 
339 
349 
358 
360 
ava 
зай 
390 
айй 
418 
428 
438 
448 
458 
4680 
470 
480 
490 
500 
514 
520 
53й 
540 
520 
569 
570 
520 
590 
бай 
619 
бай 


530 
бай 


L-LEHE AS à 

FÜR Т=1 ТП 26:ЕСТ»=й:МЕХТ 

BS=STRINGSCLENC DÉI, "-"5 

ESSHI-ü 

CLS 

PRINT B$ 

LOCATE 1,2:PRIMT"LETTRE" 

CS=IHKEYS:IF C$="" "HEN 218 

IF C&<"A" DR C$>"Z" THEN 200 

IF РСНЗССС82-642-1 THEM zen ` 
PRIHT#1, CS; 

Вей 

FOR T=1 TO LEHCRS» 

IF CS 2MIDSCRS,T,1» THEM 298 

BS&-LEFTSCBS, T-12*C$-RIGHTSCBE, LEHCRB2-T2:L2L-1:FLz1 
МЕЯТ Т 

PRINT Dë 

IF 150 THEN 368 ELSE ТЕ FL-1 THEN 348 
ESSAI=ESSAI+1:INK ESSRI*2.24:IF ESSRI-13 THEN 418 
IF L=0 THEN 418 

FC RSC< Ci 2-64 $1 

GOTO 1988 

ЕКІМТ #1, BRAVO. орти 

FOR T=1 TO S:FOüR 5-1й0й0 ТП 100 STEP -20 

SOUND 1,8,1,15 

МЕЯТ S.T 

GOTO ага 

RNA PERDU. ти ИГА 

LOCATE 1,24 :РЕІНТ "UNE AUTRE С0/М275 

Н8-1НКЕҮ8:1Е R$-"" THEM 439 

IF Н%="П" THEM RIJN 

IF Н®="Н" THEM ЕМО 

GOTO 440 

ORIGIN 6.6, 0, 635, 399, 206 

моме 200.210:DRAW 400,210,3 

MOVE 30A, 210:DRAH 300, 399, 4 

МОМЕ op. 210: DEN 300, 250,5 

MOVE 499,214:DRAU 300,250,6 

MOVE 290, 299: DEN 400,399,7 

МОМЕ 30G. з5й: DEN 350,329,8 

МОМЕ 400,399:0ЕНЫ 400,379,9 

МОМЕ 399,379:DRAU 412,379,19:DRAU 412,399:DRAU 298,359:DRRM 398,375 
MOVE 488,352:DRRM 499, 309,11 

MOVE 488,349:DRHW 388.348,12 

MOVE 4£&8,349:DRRW 422,340,13 

МОМЕ App. 209: DRM 384,279, 14 

MOVE 400, 309:DRAH 422,270.15 

RETURH 

DATA MOBILE. JOURNAL. ORDIHATEUR, MODULE , RADIATEUR, VEHICULE. MAGHETISME 


: ELEPHANT 


CATA CIGARETTE, CENDRIER: CRAYON, CRITERIUM 
CATA UNITE, CHAUSSURE, АСЕТ, CAISSE. ТЕВТН, МОНТАСНЕ, COULEUR , CLASSELIR 


COMMENTAIRES : Ligne 110 à 170 : choix des mots et 
Ligne 10 à 40 : initialisation écran initiliasation du texte 
{mode et couleur) Ligne 180 à 240 : saisie des touches 
Ligne 50 à 70 : mise en place couleur Ligne 250 à 350 : test si lettre valide 


dessin 


et texte Ligne 360 à 460 : texte gagné ou perdu 


Ligne 80 à 100 : initialisation des Ligne 470 à 610 : dessin pendu 
tableaux Ligne 630 à la fin : data et mot à tirer 
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AMSTRAD СРС 464 


DRÔLES DE CARACTÈRES ! 


Créez les graphismes de vos futurs jeux. 
Pour vous diriger à l'intérieur d'un caractère à redéfinir, 
utilisez les quatre touches d'édition. 
Pressez la barre d'espace pour remplir un carré 
E pour effacer, C pour valider le caractére redéfini, 
Z pour rendre la grille entièrement blanche. 


(> — 


p d 


10 REM !!!! IMPORTANT !!!!! IL FAUT ABSOLUMENT METTRE CETTE LIGNE 

20 REM POUR UN DEMARRAGE & CHAUD FAIRE GOTO 1300 LE GENERATEUR SE TROUVE EN 4095 

ФЕТ S'ETEND SUR 2048 

30 WINDOW £1,1,40,25,25 

40 IF PEEK(&176)=65 THEN GOTO 290 

50 GOTO 190 

60 REM жжжж% TEST CLAVIER хөвөө 

ТЫ? 

80 a$=INKEY#:1F а%="" THEN 80 

90 cha=ASC(a$) : RETURN 

100“ 

110 REM *жжжж MENU жже 

120 * 

130 LOCATE 15,18:PRINT"E »ЕРРАСЕ" 

140 LOCATE 15,19:PRINT "ESPACE >REMPLI" 

150 LOCATE 15,21:PRINT"C >CREATION" 

160 LOCATE 15,22:PRINT"S >SORTIE" 

170 LOCATE 15,23:PRINT"Z >GRILLE À ZERO" 

180 RETURN 

190“ 

200 REM жжжжж INITIALISATION жжжжж 

210” 

220 POKE %176,65:тетеНІМЕМ:РКІМТ mem 

230 BORDER O:INK 0,0:INK 1,11:1МК 2,24,1:1NK 3,6:PAPER 0:РЕМ 1:015 
^ 240 SYMBOL AFTER 32 

250 SYMBOL 255,&80,&80,&80,480,&80,&80,&80,&FF 

260 SYMBOL 253,193,162,148,136,148,162,193,255 

270 SYMBOL 252,0,0,0,0,0,0,0,0 

280 SYMBOL 251,255,255,255,255,255,255,255,255 

2702: 

300 REM жжжж САОКТ АСЕ жж 

310“ 

320 CLS 

330 CLEAR:GOSUB 360:x--1:»-2:G08UB 110 

340 INPUT £1," CODE CARACTERE DECIMAL (32-2250)0:";Са: 

350 IF СА<32 OR CA>250 THEN 340 ELSE САВА-СА:00ТО 510 

360 FOR Y=208 TO 336 STEP 14 

370 ORIGIN 240,у:0БАЫ 128,0 


380 NEXT 
390 FOR x=240 TO 372 STEP 16 
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400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
570 
„La PI 
600 
610 
620 
630 
640 
650 
660 
670 
680 
N 3: 
690 
700 
710 
720 
730 
740 
680 
750 
760 
770 
780 
790 
800 
НЕФ С 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
740 
750 
8565 
760 
970 
980 
790 
1000 
1010 
1020 


ORIGIN x,208:DRAW 0,128 
NEXT 
RETURN 


Й 


2 


LOCATE 1,25:PRINT"VOULEZ-VOUS ЕМ DEFINIR UN AUTRE (0/М)?" 
GOSUB ó0 

IF A$="0" OR АФ-"о" THEN GOTO 290 

IF A$="N" OR A$="n" THEN CLS:END 

GOTO 470 


REM ххэ» GENERATION хөөж 

2 

МВеса-32 :а0< (НТМЕМ+1) + (МВ#В) :XX=0 :YY=0 :L=5 

FOR А=ар TO AD+7 

B=PEEK(A) :Va=128:C=1é 

FOR 0-0 TO 7 

R=B-VA 

IF К<О THEN СА«ХХ,ҮҮ2-0:10САТЕ C,L:PRINT CHR$(255) ELSE CA(XX,YY)-1:LOCATE С 
RINT CHR$(251) :b=r 

VA=VA/2:XX=XX+ 1 :C=C+1:NEXT Q 

L=L+1:YY=YY+1:XX=0:NEXT À 

HO=0 :VE=0 

9=2:6050В 960 :q=0 

с=14:1=5:10САТЕ c,l:PRINT СНЕФС253) 

GOSUB 110 

REM test clav 

ho=0:ve=0 

CA=254 : Q=1 :CH=VE :GOSUB 970:LOCATE 16,14:РЕМ ЗіРБІМТ САКА ; : РЕМ 1: РЕТМТ"<"; :РЕ 
PRINT CHR$(254):PEN 1:GOSUB 60 

IF cha=243 THEN іс-і:і1-0:00Т0 790 

IF cha=242 THEN іс--1:і1-0:00Т0 790 

IF cha=241 THEN il=+1:ic=0:GOTO 790 

IF cha=240 THEN il--1:ic-0:GO0TO 790 

IF cha=32 THEN ca(ho,ve)=1:GOTO 840 

IF сһа=&? OR cha=101 THEN ca(ho,ve)=0:LOCATE c,l1:PRINT СНКФ(253):РЕМ 1 :GOTO 


IF сһа=67 OR cha=99 THEN 0-0:00Т0 840 
IF cha=83 ОК cha=115 THEN 430 

IF a$="z" ОК a$="Z" THEN 1160 

GOTO 680 
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IF са(һо,уе2-0 THEN LOCATE с, 1: РЕТМТ CHR$(255) ELSE PEN 1: ОСАТЕ c,l:PRINT С 


251) 
с=с+іс:1=1+ 11 :Нотпо+ | с:уежуе+ 11 
IF с<16 OR c>23 OR 1<5 ОК 1212 THEN c=c-ic:l=1-il:ho=ho-ic:ve=ve-il 


IF са(һо,уе2-0 THEN LOCATE с, 1 :РЕТМТ СНЕФ‹ 253) :РЕМ 1:60Т0 680 

PEN 2:LOCATE с, 1: РЕТМТ CHR$(251) :РЕМ 1 

GOTO 680 

CA=CARA:LOCATE 1,25:PRINT STRING$(39,32); 

LOCATE 1,25:PRINT"REDEFINITION DE "СНЕФ(СА)" (0/М)?" ; : 60508 60 

IF аФ="0" OR a$="o" THEN 910 y 
IF a$-"N" OR a$="n" THEN 680 

GOTO 870 2: 

GOSUB 940 I 

LOCATE 1,25:PRINT STRING$(39,32); 

“Хш-1:Үш2 

'GOSUB 500 

FOR L=5 TO 12: 0САТЕ 16,L:PRINT STRING$(8,255) ; :МЕХТ : Г ОСАТЕ 34,4:PRINT STRIN 
, 252) :CLEAR:GOTO 330 

FOR CH=0 TO 7 

VA=128:C(CH)=0 

FOR N-0 TO 7 

IF CACN,CH)=0 THEN VA=VAZ2:GOTO 1020 

CCCH)=CCCH)+VA 


VA=VA/2 
NEXT N 
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1030 ТЕ G-1 THEN 1050 

1040 МЕХТ СН 

1050 SYMBOL СА,С(0),С(12,С(22,С(32,С(42,С(5),С(62,С(7» 

1060 ТЕ 0-1 THEN 1100 

1070 IF q-2 THEN RETURN 

1080 IF 0-0 THEN :LOCATE 11,4:PRINT "HEXA";:LOCATE 25,4:PRINT "DECI";:K25:FO0R I= 

0 TO 7:LOCATE 12,K:PRINT НЕХФСССТ)); :LOCATE 25,K:PRI 

NT C(I1);:K=K+1:NEXT I:ERASE C 

1090 LOCATE 1,25:PEN 3:PRINT"PRESSE2 UNE TOUCHE"STRING$(10,252) :PEN 1:G0SUB 60:F 

OR K=4 TO 13:LOCATE 25,K:PRINT" "PILOCATE 11,K: 

PRINT" "P:NEXT KiLOCATE 16,16:PRINT STRING$(8,252) ; 

1100 IF G=0 THEN 920 

1110 RETURN 

1120 ЕКАЗЕ ca,c:SYMBOL 254,0,0,0,0,0,0,0,0 

5130 FOR 1-5 ТО 12:LOCATE 16,1:PRI STRING$(8,255) ; :МЕХТ 1:6080В 340:һо-0:ует0: 
640 


caractère 
EES) Ligne 360 à 420 : sous routine 
quadrillage 
Ligne 30 : initialisation de fenêtre Ligne 450 à 500 : fin de programme 
Ligne 40 : test si premier RUN Ligne 520 à 650 : initialisation de la 
Ligne 60 à 100 : sous routine test du grille et des caractères 
clavier Ligne 670 à 780 : test du clavier 
Ligne 110 à 190 : sous routine du menu Ligne 600 à 850 : affichage croix ou 
Ligne 200 à 290 : initialisation des blanc 3 
couleurs et caractères Ligne 860 à 1130 : traitement des 
Ligne 300 à 350 : entrée du code tableaux 


AMSTRAD CPC 464 


LES ASCII ATTAQUENT 


Des vagues de caractères ASCII déferlent sur vous. 
Détruisez-les et... apprenez à 
les reconnaître : 
Ils suivent un ordre d'apparition implacable. 
Utilisez les touches du curseur 
pour vous déplacer et la barre d'espace pour tirer. 


REM ASCII attaquent 

SYMBOL AFTER 200:DIM ас) :DIM b(6):DIM аз3(6) 

MODE 1:1NK 0,0:1NK 1,3:INK 2,26:INK 3,9:PAPER 0: ВОКОЕК ГА 

REM= redeffinition des caracteres - 

SYMBOL 200,0,3,7,31,4,252,111,224 

SYMBOL 201,0,0,128,252,128,248,252,31 

SYMBOL 203,224,111,252,4,31,7,3,0 

BOL 204,31, 252, 248, 128, 252, 128, 0,0 

ааа s n ss. 

100 dësen “+CHR$%(10)+CHR$(8)+CHR%*(8)+" " 
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110 КЕМ deffinition du niveau == 
120 INPUT "quel niveau (1,2,32";ni 
130 IF ni=i THEN n=3 
140 IF ni THEN 
150 IF ni=3 THEN n-1 

160 REM positionnent des etoiles 

170 MODE 1:ҒОК с=1 TO 2:FOR i-i TO 100:PLOT RND(C12*640,RNDCI2*400,c 
180 1 
120 jeu 
200 EVERY 100,1 GOSUB 370 

210 аѕ=143:по=0:х=1 :у=12:х0=32:у0=205:РЕМ 1:LOCATE 1,у:РВЇМТ v$:GO0SUB 370 
220 xx=0 

230 IF INKEY{72)=0 OR ІМКЕҮ‹0)=0 THEN у!- x-1:G0TO 250 

240 IF ІМКЕҮ‹73)=0 OR INKEY(2)=0 THEN yi= =1 

250 IF INKEY(47)=0 OR INKEY(76)=0 THEN GOSUB 340 

260 IF y<=2 THEN у=2 

270 IF 3 THEN у-23 

280 IF THEN LOCATE 1, у: РЕТМТ d$ 

290 ТЕ THEN узужу1:ЇЕ y>=2 AND y<=23 THEN у0т-у0-16%у1 

300 IF THEN у-2 

310 IF y>=23 THEN y=23 

320 IF xx-1 THEN PEN 1:LOCATE 1,у:РКІМТ v$; 

330 вото 220 

340 REM =: 

350 MOVE х0,у0- :DRAUR 200%п,0,2: OR іші TO 10:PRINT CHR#(7) ; :МЕХТ і :МОЧЕ х0,У0% 
10:DRAWR 200*n,0,2:FOR ізі то 10: PRINT CHR$(7) ; :NEXT 

і 

360 :МОУЕ хо, у0-8: ОКАШЕ 200%n,0,0:MOVE x0,>0+10:DRAWR 200%п,0,0:ҒОК 1-1 ТО 10:PR 
INT CHR$(7);:NEXT i:GOTO 470 

370 REM routine pour les attaquants 

380 PEN 3 

390 IF по<-0 THEN no-5:as-as*1:a(12740:a(2)740:a(3)740:a(42740:a(5) 740 :bC 10 23:bC 
2)=10:6<3)=15:(4)=20:Ь(5)=20:а5%(1)=СНЕФ( а) :а5Ъ(2) 

=СНЕФ( as) : а (2) =СНЕФ (аз) :а5# (3) =СНЕФ( аз) : а5% (4) =СНЕФ( аз) :а5% (5) -CHR$ Cas) 

400 FOR x=i TO 5 

410 LOCATE ax) ,b(x) : PRINT " "; 

420 a(x2-a(0-INTCORNDCIO #5) -2:de t=RND( 1) #4:b(x)=bCx)+INTCRND(1)#7-de t? 

430 IF Ь(х2<1 THEN b(x)=1 

440 IF Ь(х) 223 THEN b(x)=23 

450 IF ах) <=0 THEN GOTO 3000 ELSE LOCATE ах) „Ь(х) :РЕТМТ as$(x) ; :МЕХТ х 

460 PEN 1 

465 RETURN 

470 КЕМ ======= test de touche ===== 
480 ТЕ THEN tou-40 

485 1F n=2 THEN tou=28 

490 IF nei THEN tou=is 

500 FOR ds-1 TO 5 

510 IF a(ds)>tou THEN GOTO 530 

520 IF (b(ds)-» OR b(ds)=y+1) AND as$(ds)<>" " THEN no-no-1:as$(ds)-" ":FOR ізі 
TO 15:PRINT СНВФС7),:МЕХТ i:LOCATE а(йз) ,b(ds) : PRINT 

"ong 

; 

530 МЕХТ ds 

540 RETURN “ 
3000 КЕМ ==: CE Unos 
3005 аФ=ІМКЕҮФ:ІҒ a$<>"" THEN 3005 
3010 INPUT "une autre";a$ 

3040 IF a$-"oui" THEN RUN 


COMENTAIRES : Ligne 160 à 180 : positionnement 
aléatoire des étoiles 

Ligne 20 : définition des variables de Ligne 190 à 330 : routine principale du 

Jeu Jeu 

Ligne 30 : initialisation de l'écran Ligne 340 à 465 : calcul et affichage de 

Ligne 40 à 80 : redéfinition des votre tir 

caractères graphiques Ligne470 à 540 : test du clavier 

Ligne 110 à 150 : choix du niveau Ligne 3000 à 3040 : fin de la partie 
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AMSTRAD СРС 464 


CASSE BOUTEILLE 


Des bouteilles avancent lentement sur un tapis roulant 
à trois niveaux. 
Rattrapez-les au fur et à mesure 
de leur arrivée. 
Pour monter ou descendre, utilisez les touches : 
Curseur haut pour monter, curseur bas pour descendre. 


REM TILT CONSERYE 

B REM definition des couleurs 

MODE 1:IMK B,H:IMK 1.25:1НК Z.27:IMK 3.15:BÜRDER 4 
REM redefinition des couleurs 

SYMBOL AFTER й 

SYMBOL 32, 255, 259, 255, 295, 255., 255, 255, 299 
та КЕМ dec 
Ва FÜR а=16 
Эй NEXT а 
190 TRG:MOVE 0, 
ПИ РЕОТ -2)-2; 
124 THG:MÜVE 4,22 ай: PRIMIS 
130 TAG:MOVE G,328:PRINT""; 
149 PLOT -2,-2, 1 

150 TRG:MOVE B, 4OB:PRINT" 1 ттт! 
164 THG:MOVE 1 

та TAG:MOVE 


TO 488 STEF 16:TRG:MDVE B. a'PRIMT"!";:TRG:MOVE &24,a:PRINT"!"; 


таттан EE EE EE ерата 


et nombre faute 
:PRIHT SCORE; :TRHG:MOVE 378.S0:PRINHT FAITE; 
e Personnage 
T m ОТЕ 48B,RH-16:PRIMT БФ;:МОУЕ 480.Н- 
: MOVE 488,H-16:PRIHMT 0%; МОМЕ дей, A~ 


FRIMT СФ: 
РЕТНТ D$; 


REM affiche 
SQUMD 1,3: :MOVE B,336*16:PRINT E$; 
MOVE C.236*16:PRINT ES: 


*D.2:THG:MOVE D, 156 : OVE D.136-16:PRIMT ЕФ: 


338 IF E 4ай AND Н<>344 THEN SOUND 1, 390,9: РАЦТЕ=ҒАЦТЕ+1 :B=32: TAG: 
PRINT " i MOVE. 36+16: PRINT " 4 
jd IF Вада ТНЕН 5 „зай,5:В<32: ТАС: HOME 440., 336:PRIHT " E 
16:PRINT " а 

37ü IF FAUTE>3 THEM 478 

384 44а AND Н<2248 THEN SOUND 1,38B.9:FRÜTE-FRUÜTE*1: e:TAG:MOYE 440, 236 


:МОЧЕ 448, 33 


PRINT " ";:MOVE 44i 9 
32: TAG:MOVE 448 


IF С>44@ THEN SOUND 1 
16:PRINT " 23 

400 IF FAUTE 
418 IF D»44& 


PRINT " "PIMOVE 440., 236+ 


TAG:MOVE 448,1 


THEN 4 
Фа! 


2 THEM SOUND 
136+16: 
1, зай,5: 


"PSMOVE 448, 136+ 


COMMENTAIRES : nombre de faute 
Ligne 250 à 260 : affichage des 
Ligne 30 : définition des couleurs personnages 
Ligne 50 à 60 : redéfinition des Ligne 280 à 290 : tests du clavier 
caractères Ligne 310 à 330 : affichage des 
Ligne 80 à 170 : tracé du décor bouteilles 
Ligne 190 à 210 : initialisation des Ligne 350 à 440 : tests des déplacements 
variables Ligne 450 : augmente le score 
Ligne 230 : affichage du score et du Ligne 470 à 480 : fin de la partie 
AMSTRAD CPC 464 


UN PONT, CA VA, TROIS PONTS... 


Aidez des jeunes filles à traverser 
une rivière en plaçant sous leurs pas les éléments 
d'un pont transportable. 

Comble de malchance, les charmantes demoiselles 
apparaissent sur trois niveaux différents... 
Pour placer un élément du pont, 
utilisez les touches du curseur haut et bas. 


18 REM TILT РОНТ 

24 REM definition des couleurs 

39 MODE 1:1МК B,B8:IMK 1,25:ІМК 2,27:INK 3.15:BÜRDER B 

dp REM definition de caractere 

са SYMBOL. AFTER Ø 

ӨЙ SYMÉOL 33,255., 255, 255., 255., 255, 255, 2995, 295 

CH REM decors. 

за Gë a-16 ТП 400 STEP 16:TRG:MOVE @,3:PRINT"!";:TAG:MOYE в24,з: PRIHT" !"; 
99 NEXT a 


118 PLOT -2,-2.2:TRG:MOVE 0,128:РКІНТ" 2 
124 TRG:MOVE B,216:PRIHT" T 
138 THG:MOVE G,312:PRIHT" 49 


148 PLOT -2,-2,1 


2:С=32:0=32:ЕФе" "ope" " 

:ЕНШТЕ-йЙ 

224 КЕМ affiche score et nombre de fautes 

224 THG:MQVE 169,5@:PRINT SCORE; : TAG:MOYE З70, 52: РЕТНТ FAUTE; 
244 THG:MOVE 274,A-16:FRINT B$; 


` ET N'OUBLIEZ PAS 
LE ANOVEMBRE TILT 
JEUX ET MICRO: 
LE GUIDE 86 


ePlus de 600 logiciels testés e Un panorama des technologies 
240 micro-ordinateurs passés du | du futur 
banc d'essai 


eles «Tilt d'or» 86 Et... les livres, les adresses indis- 

eTous les ordinateurs d'échecs pensables, le répertoire de tous 

ele point sur les consoles les articles parus dans TILT, le lexi- 

e Quel micro choisir ? Les questions | 90е de tous les termes informati- 
à poser... ques, nos Р.А... 


F 2 


En vente chez tous les marchands de journaux 


QUAND LA LEGENDE FAISAIT LHISTOIRE... 


TE 


I 
I. Ч 


Ze 


MANDRAGORE 


Grand Prix - Ministère de la Culture 


le plus récent, et aussi le meilleur jeu de где sur micro..." (Jeux et Stratégie) 
” 


Q rue Hippolyte Kahn 
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